
COMPUTER USER’S GUIDE 
FOR A CHEMICALLY REACTING 
VISCOUS SHOCK-LAYER PROGRAM 


E. W. Miner and Clark H. Lewis 


Prepared by 

* VIRGINIA POLYTECHNIC INSTITUTE AND STATE UNIVERSITY 
Blacksburg, Va. 24061 
for Lyndon B. Johnson Space Center 


WASHINGTON, D. C. 



- 191 ®’' 


MAY -+975 


NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 


TECH LIBRARY KAFB, NM 



TECH LIBRARY KAFB, NM 

llillllll 

□DblE3M 


BIBLIOGRAPHIC DATA 
SHEET 


1. Report No. 

NASA CR-2551 


3. Recipient’s Accession No. 


4. Title and Subtitle 

COMPUTER USER'S GUIDE FOR A CHEMICALLY 
REACTING VISCOUS SHOCK-LAYER PROGRAM 


5. Report Date 

May 1975 


7. Auchor(s) 


E. W. Miner and Clark H. Lewis 


8. Performing Organization Rept. 
No. 


9. Performing Organization Name and Address 

Aerospace and Ocean Engineering Department 
Virginia Polytechnic Institute and State University 
Blacksburg, Virginia 24061 


10. Project/Task/Work Unit No. 


11. Contract/Grant No. 

NAS9-1 2630 


12. Sponsoring Organization Name and Address 

L. B. Johnson Space Center 
Houston, Texas 77058 
Technical Monitor: D. M. Curry 


13. Type of Report & Period 
Covered 


Mail Code ES32 


14 . 


15. supplementary Notes ^ Miner is currently with the National Air and Space Museum, 
Arts and Industries Bldg., 900 Jefferson Drive, Washington, D. C. 20560 


16. Abstracts 

The present report describes the computer code for predicting vi_scous shock- 
l_ayer flows over nonanalytic blunt bodies (Program VISLNABB) for hypersonic, low 
Reynolds number flows. 

Four specific and one general body geometries are considered. In addition to 
sphere-cones, cylinder wedges and geometries defined in tabular form, options for 
hyperboloids and paraboloids are included. Details of the theory and results are 
included in a separate engineering report. The program, subroutines, variables in 
common and input and output data are described. Listings of the program code, 
output data for a sample case and the input data for this sample case are included, 


17. Key Words and Document Analysis. 17a. Descriptors 

shock layers 

laminar flows 

chemically reacting flows 

ionization 

reentry bodies 

space shuttle . 

heat-transfer 

computer software 

17b. Identifiers/Open-Ended Terms 


17c. COSATI Field/Group 


18. Availability Statement 

Unclassified-Unlimited 


Star Cat 3^ 


19. Security Class (This 
Report) 

UNCLASSIFIED 

21. No. of Pages 

177 

20. Security Class (This 
Page 

UNCLASSIFIED 

22. Price 
$7.00 


For sale by the National Technical Information Service, Springfield, Virginia 22151 




ABSTRACT 


The present report describes the computer code for predicting viscous 
shock-l_ayer flows over npnanalytic Munt bodies (Program VISLNABB) for hyper- 
sonic, low Reynolds number flows. 

Two specific and one general body geometries are considered. Program 
options are for two-dimensional or axisymmetric flow over hyperboloids, 
paraboloids and geometries defined in tabular form. Details of the theory 
and results are included in a separate engineering report. The program, 
subroutines, variables in common and input and output data are described. 

A summary of the theory, listings of input and output data for four sample 
cases and a program listing are given in appendices. 
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FOREWARD 


Reports Hypersonic Ionizing Air Viscous Shock-Layer 
Flows Over Nonanalytic Blunt Bodies (CR-2250) and Computer 
User's Guide For a Chemically Reacting Viscous Shock-Layer 
Program (CR-2251) by Miner and Lewis should be used 
together as source or reference material. 



INTRODUCTION 


The computer code described in this report has been developed to predict 
hypersonic, low Reynolds number flows over nonanalytic blunt bodies. The 
program uses an implicit finite-difference method to solve the partial differ- 
ential equations governing the viscous shock-layer flow. Two nonequilibrium 
gas chemistry models are included in the program. The first is for dissociat- 
ing oxygen and the second is for ionizing, multicomponent air. 

The viscous shock-layer method has several significant advantages over 
conventional boundary-layer methods. First, the flowfield is computed from 
the body to the shock and viscous effects need not be confined to a thin flow 
regime near the body. Second, effects such as entropy-layer swallowing and 
displacement-thickness interaction are avoided. Also, there is no need for 
any procedure to track streamlines from the shock crossing point to a boundary- 
layer edge. Third, the viscous shock-layer method, especially when shock slip 
is included, is applicable to much lower Reynolds number flows than boundary- 
layer methods are. 

The principal purpose of this report is to describe the computer code in 
sufficient detail to allow a user to use the program and to properly interpret 
the solution data. Reasonable experience in using computer codes of this size 
is assumed as is some familiarity with the engineering aspects of the viscous 
flow problem. 

The complete computer program is listed. Also listed are the output data 
for four sample cases and the required input data for these cases. All of 
the input variables are described as are the output variables for a converged 
station solution. All variables in common are described as are the variables 
in the subroutine or function argument lists. In the variable descriptions, 
a superscript * denotes a dimensional quantity. All other variables are 
nondimensional . Each subroutine or function is described in a separate sub- 
section. As a further aid in using the program, an example is included of 
the Job Control Language needed to run the program on an IBM 370 computer. 

Also included are a list of all of the common statements and a listing of 
the occurrence of the common statements by subroutines. Finally, a section 
is included on preparation of input data with specific advice and suggestions. 

Questions on the use of the computer program should be directed to the 
second author of this report (Dr. Clark H. Lewis) who was the principal 
investigator of contract NAS9-12630. 
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DESCRIPTION OF PROGRAM 


Program VISLNABB is a Fortran computer program for predicting hypersonic, 
low Reynolds numbers, viscous shock-layer flows over nonanalytic axisymmetric 
or two-dimensional blunt bodies. The governing conservation equations follow 
the equations given by Davis for perfect gas or dissociating oxygen viscous 
shock layers but are extended to a more general chemistry; i.e. nonequilibrium, 
multicomponent air. The method of solution of the equations follows the 
procedure of Davis using an implicit finite-difference method. 

Besides the more general flow chemistry, the present program differs from 
the methods of Davis in several important respects. First, the present method 
includes the general extension to nonanalytic, blunt bodies, where the methods 
of Davis were restricted to analytic blunt bodies such as hyperboloids and 
paraboloids. A second extension, required by the first, was the removal of 
the assumption that the shock and body angles were the same for the first 
global (TVSL) iteration. This assumption was quite good for the analytic, 
blunt bodies which Davis considered, but was unusable for some classes of non- 
analytic bodies. This assumption was removed by including the provision for 
an initial shock shape (and subsequent updating of the shock shape) which need 
not be the same as the body shape. For example, the shock shape might be 
obtained from a blunt body, method of characteristics procedure. A third 
extension was the inclusion of the provision for specifying a body geometry 
by tabular arrays. 

The viscous shock-layer equations are principally parabolic in nature, 
but there is a dependence upon the downstream shock shape which introduces 
a slight elliptic nature of the governing equations. The equations are 
solved in a streamwise direction using a marching integration procedure. 

The elliptic nature is then satisfied with global iteration. 

The dimensional, physical equations are first nondimensional ized by 
freestream and reference variables. The equations are then normalized by 
dividing the variables by the variable values behind the shock. The mass 
conservation (or continuity) and normal momentum equations are integrated 
using the trapezoidal rule. The streamwise momentum, energy and species 
conservation equations are of the standard parabolic form 

W" + A 1 W + A 2 W + A 3 + A 4 W = 0 

where W represents the dependent variable, the prime denotes differentiation 
with respect to n> (y/ysh)> subscript s denotes differentiation with 
respect to s and the A-j are the functions of the program variables. These 
equations are integrated by writing the equations in finite-differencg form 
and solving the resulting system of simultaneous algebraic equations. 

The first global iteration is for a thin viscous shock layer (TVSL) only. 
After the first global iteration is completed the shock data are updated and 


*The solution procedure is discussed in Appendix A. 
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subsequent global iterations made for a fully viscous shock layer (FVSL) or 
for TVSL. A major function of the first global iteration is to refine the 
initial shock shape and to store v profiles on tape or disc. A considerable 
amount of computing time is saved by the first global iteration being for 
the binary gas (dissociating oxygen) and switching to the multicomponent air 
chemistry (if needed) after the first global iteration is completed. The 
data retained from global iteration to global iteration (the shock data and 
the v profiles) are largely chemistry independent. 

The binary gas chemistry model has another advantage over the multicom- 
ponent gas chemistry model. The rate of production terms for dissociating 
oxygen are written in a form which allows a closer approach to equilibrium 
than possible for multicomponent air. For near-equilibrium flows it may be 
found that at the stagnation point a converged station solution is easily 
obtained for dissociating oxygen but a converged station solution can not 
be obtained for multicomponent air. 

There is in the program no global iteration convergence criterion. For 
analytic bodies (e.g. hyperboloids) the second and third global iterations 
give nearly identical results. For some highly nonanalytic bodies, with 
the shock data averaging which is required, global iteration convergence may 
be neither practical nor fully possible. The second global iteration, 
however, will account for the major flow field effects of interest and may be 
considered adequate for most cases. 

In the following subsections a brief description of each routine or 
subroutine will be given. 


MAIN Routine 

MAIN is the master routine of the program. In addition to controlling 
the overall computational flow of the program, MAIN initializes many of the 
program variables, reads much of the input data, calculates many of the 
program variables, and calculates the shock data for the next global itera- 
tion. Flow diagrams of MAIN by function and by subroutines called are given 
in Figs. 1 and 2. 

The first function of MAIN is the initialization of counters and of some 
input/output unit numbers. The next function is the initialization of many 
of the NAMELIST variables, followed by reading of the NAMELIST INPUT and the 
readjustment of some of the variables. The next functions are the optional 
input of the shock shape data, the wall -temperature distribution and the s 
locations for specific solutions. The normal spacing of the finite-difference 
grid is next calculated and the reaction rate data are read by Subroutine 
RTEDTA. This part of the program is performed only once for each calculation. 

The global iterations begin after the comment "BEGIN MAIN LOOP." The 
shock shape data are optionally printed and variables are initialized for 
the beginning of each global iteration. The reaction rate constant and 
stoichiometric coefficient arrays are filled in Subroutine SET2. Freestream 
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Fig. 1. 


Flow Diagram of Program VISLNABB by Function. 
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GLOBAL ITERATION 
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and reference conditions are calculated in the first section of Subroutine 
THERM and profiles for the stagnation point are initialized in Subroutine 
SET. The global iterations are performed within a DO loop from 1 to KEND. 

Following the comment "BEGIN SOLUTION ALONG BODY", a marching integration 
procedure is used for obtaining the station solutions. The station solutions 
are obtained within a DO loop from 1 to IEND. The wall temperature is 
optionally calculated and for a FVSL global iteration the v profiles from the 
previous global iteration are retrieved from disc by Subroutine VPRFLE. Sub- 
routine GEOM returns the body angle, curvature and coordinates for s + ds/2. 
The shock angle and slope are calculated either by interpolation from the 
shock data arrays or from the body angle and shock-layer thickness. 

Properties behind the shock are calculated by Subroutine SHVALS, which 
is called within an iteration loop requiring convergence of the shock 
temperature, TTS. 

Subroutine THERM is called to provide the thermodynamic properties for 
the grid points of the shock layer. The governing conservation equations 
are solved by Subroutines SPECIE (the species equation), ENERGY (the energy 
equation), SMOMNT (the s momentum equation), MASS (the continuity equation) 
and NMOMNT (the y or normal momentum equation). 

Station iteration counters are then incremented. If PRNTCI = 1.0, the 
profiles (u/u s h> T/T S h and the Ci) with the species sums for 0 and N are 
printed. If PRNTCI = 0.0, only the maximum differences between the previous 
and present profiles are printed. The profiles are tested for convergence 
by comparing DIFI(I) with CNVRGI(I), (1=1, NSPL2) . All of the values of 
CNVRGI have been set to CONVRG except for CNVRGI for N0 + which was set to 
100 x CONVRG. The values of DIFI(l) are calculated in Subroutines SMOMNT 
(I = 1), ENERGY (I = 2), and SPECIE (1=3, NSPL2) from the expression 
DIFF = |1 - w/w]ast|> w is the present station iteration value of the pro- 
file at the grid point and wj as t is the previous station iteration value. 

The maximum value of DIFF for the entire profile (at all grid points) is 
assigned to the appropriate DIFI(I). 

If the convergence criteria are not met, another station iteration is 
performed (at s if NITER < NITMAX, or at s - ds/2 if NITER = NITMAX). If 
the convergence criteria are met. Subroutine RESET is called to print the 
station solution data and to reset the appropriate variables for the next 
station solution. 

The step size DS is then adjusted (doubled if permitted or reduced to 
obtain a solution at a specific station). Subroutine GEOM is called to set 
the values of the body angle, curvature and coordinates and the program 
returns to the top of the station iteration loop unless the end of the 


*See Appendix A for the governing equations. 
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station solutions for the global iteration has been reached (indicated by 
I = IEND or by S = SEND). 

After the stations solutions have been completed, four additional 
records are written on Unit NTW so that a subsequent eight point, least 
squares log-log curve fit will have an adequate number of points. The shock 
data for the next global iteration are then calculated. If NDATA = 0, only 

the derivative of the shock-layer thickness with respect to s, XNSP, is 

needed. The XNSP array is smoothed by four consecutive averages over three 

points. If NDATA t 0, the shock-layer thickness derivative array, XNSP, is 

smoothed by four consecutive averages over three points. This averaging 
scheme is a modification of the simple arithmetic average used for NDATA = 0 
and reduces to it if the solution points are equally spaced. The modification 
is for unequal point spacing and for three points on a straight line gives 
exactly the middle point. Three point Lagrangian interpolation is used to 
fill the SHSLPN array from the smoothed XNSP array. 

After the shock data are calculated, the NTR and NTW files are rewound, 
the unit numbers are switched, and indicators are reset. The program then 
returns for another global iteration if K < KEND. 


Subroutine DERIV3 

Subroutine DERIV3 uses the first derivative of the Lagrangian inter- 
polating polynomial of second order to calculate the first derivative of 
the function f at a point x. The equations for the interpolating polynomial 
are given in the description of Subroutine INTER3. 

USAGE: 

CALL DERIV3 (F, X, IMAX, IMIN, FP) where F and X are the arrays of the 
ordinate and abscissa values, IMAX and IMIN are the upper and lower sub- 
scripts of the arrays to be used, and FP is the array of the derivative of 
F with respect to X. 


Subroutine ENERGY 

The solution for the energy conservation equation is obtained by this 
subroutine. The coefficients of the energy equation in standard parabolic 
form, the A j , are calculated first. The shock slip variables, CS1 and CS2, 
are next calculated and the wall conditions are set. The call to Subroutine 
SOLVE returns the new solution to the energy equation in the array T2 (=T/T s h)- 
The array T1 is the array of T/T s ^ from the previous iteration (s = 0.0) or 
the previous station solution (s > 0.0). Negative points in the temperature 
profile are reset to a small positive number and Tsh is recalculated. If 
s = 0 the T1 and R1 arrays are updated. The TC and RC arrays are calculated 
at the average of the T1 and T2 and the R1 and R2 arrays. The T21 array, 
the previous station iteration T2 array, is compared with the present T2 
array and the maximum of the expression 
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]1 - T2/T21 j 

is stored as DIFI(2) for the convergence test. The array T21 is reset and 
TCNW, the derivative of the TC array with respect to y, evaluated at the 
wall, is calculated. Program control then returns to MAIN. 

USAGE: 

CALL ENERGY 


Subroutine GEOM 


The body geometry data are calculated in Subroutine GEOM. Provisions 
are included for two specific geometries with a third geometry specified 
by a table of z, r and s coordinates. The first two sections of the sub- 
routine are for paraboloids and hyperboloids respectively. These two 
analytic bodies have a continuous distribution of the surface curvature 
k or CK. 


The third section of the subroutine, on the first call, reads arrays 
of z, r, s, k, and e and for all calls returns the body coordinates, 
curvature and angle by interpolation in these arrays. The curvature might 
be calculated from the expression 
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which is equivalent to the alternate expression for curvature 
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USAGE: 

CALL GEOM (S, DS, RS, CK, CSF, SIF, XB) where S is the surface distance, 
DS is the increment in S, RS is the radial coordinate, CK is the curvature, 
CSF is the cosine of the local body angle, SIF is the sine of the local body 
angle and XB is the axial coordinate. S, DS and RS are passed to Subroutine 
GEOM and RS, CK, CSF, SIF and XB are returned. RS is recalculated by GEOM. 


Subroutine HCP 

Three point Lagrangian interpolation is used to calculate the species 
enthalpy and specific heats for one temperature TR which is passed to HCP. 
CPU, HII and HI FAC are returned. 
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USAGE: 

CALL HCP (TR, CPU, HI I , HIFAC) where TR^is the temperature in °R, CPII 
is the array of the species specific heats, Cp^ , (ft 2 /sec 2 -°R) , HII is the 
array of species enthalpies, h*, (ft 2 /sec 2 ), and HIFAC is the array of species 

enthalpy factors (h? - Ah!j)/T*, (ft 2 /sec2-°R) , with Ah*j being the heat of 
formation. 


Subroutine HCPA 

The species enthalpy and specific heat profiles are returned by Subroutine 
HCPA. The dimensional temperature, TR, is calculated from the element of the 
TA array. A second-order Lagrangian interpolating polynomial is used to 
return the species enthalpy factor and specific heat. The enthalpy is cal- 
culated and the enthalpy and specific heat are nondimensional ized. TA, IE, 
HREF, CPREF, TTS and TREF are passed to Subroutine HCPA and HI and CPI are 
returned. 

USAGE: 

CALL HCPA (TA, IE, HREF, CPREF, TTS, TREF, HI, CPI) where TA is the 
temperature array, T /T s h T* e f; IE is the number of points in the TA array; 

HREF is the reference enthalpy, h* e f = U* 2 ; CPREF is the reference specific 

heat, Cp re ^ = Cp ; TTS is the shock temperature, T s h = T|p/T* e ^; TREF is the 

reference temperature, T* e f = U* 2 /Cp ; HI is the species enthalpy, h*/h* ef ; 

and CPI is the species specific heat” C n /C 0 

M i H ref 


Subroutine INTERP 

This subroutine sets up the calling argument for the two point table 
look up function TLU and tests the return flag from TLU. 

USAGE: 

CALL INTERP (XX, XN, F2, IE, FF) where XN and F2 are the arrays of 
coordinate points and function values, IE is the number of points in the 
arrays, XX is the passed coordinate value and FF is the returned function 
value. 


Subroutine INTER3 

Subroutine INTER3 uses a second-order Lagrangian interpolating poly- 
nomial interpolating on the points x-| , X£» X 3 , with the corresponding 
function values f -j , fg and f 3 to provide a function value F corresponding 
to the abscissa value x. 
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The general form of the polynomial is 


F(x) = 


3 


E 


f k 4 < x > 


where (x) is given by 


L k ^ 


3 

m=‘ 

m^K 


x-x m 
m_ 

x,-x m 
k m 


USAGE: 

CALL INTER3 (X, XI, X2, X3, FI, F2, F3, F) where XI, X2 and X3 are the 
abscissa values; FI, F2, and F3 are the function values; and F is the 
returned function value corresponding to X. 


Subroutine INTRPS 

This subroutine sets up the calling argument for Subroutine SMOOTH. 

A principal function of the routine is to provide SMOOTH with the adjusted 
value of NU while preserving the value of NNU. 

USAGE: 

CALL INTRPS (XX, YY, X, Y, NP, NNU, DYY) where X and Y are the abscissa 
and ordinate arrays of NP elements, XX is the location in the X array for 
interpolation and differentiation, YY is the returned function value with 
first derivative DYY and NNU is half of the preferred number of points to 
be used in the log-log, walking least squares curve fit. 


Subroutine INTRP3 

This subroutine scans through the array X to *ind the location of XX 
and then calls INTER3 to return the function value YY. 

USAGE: 

CALL INTRP3 (XX, X, Y, NPNTS, YY) where X and Y are the abscissa and 
ordinate arrays of NPNTS elements. 


Subroutine MASS 

The solution of the mass conservation or continuity equation is pro- 
vided by Subroutine MASS. For s = 0, the equations are in a reduced form 
and the first section of the routine is used. For s > 0, the general form 
of the equation is solved in the second section. 
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The shock-layer thickness, XNS, is calculated by integrating the con- 
tinuity equation from 0 to ysh- The expression for XNS is quadratic if the 
flow is axi symmetric, but is linear for two-dimensional flow. For s > 0 
an alternate shock-layer thickness, XNSIV1 is calculated by matching the 
freestream mass flow into the shock with the mass flow between y = 0 and 
y s p,. If NAN = -1 XNS is not changed. If NAN = 1 or -2, XNS is set to 
XNSIV1 . For NAN = 0, XNS is set to the average of itself and XNSIV1 . 

The normal velocity profile, VC, is then calculated by integrating the 
continuity equation from 0 to y. Shock coordinates are then calculated, 
as are values of VPG, VG, VGS, RNSH, RCSF and VS. After calculating 
derivatives of the v profile, control is returned to MAIN. 

USAGE: 

CALL MASS 


Subroutine NMOMNT 

The solution for the normal momentum equation is obtained in this sub- 
routine. The trapezoidal rule is used to integrate the normal momentum 
equation. The derivatives of the pressure are first evaluated at the outer 
edge (behind the shock) and then evaluated inward. With the pressure known 
at the outer edge, the pressure profile can be calculated proceeding inward. 

The normal momentum equation is divided into two parts for the integra- 
tion. The first part is the thin viscous shock layer (TVSL) contribution. 

The second part is the fully viscous shock layer (FVSL) contribution. For 
FVSL the two contributions are added. For TVSL only the first contribution 
is used. The pressure profile array for the current station iteration is 
P2 which is averaged with PI (from the previous station solution or itera- 
tion if s = 0) to give the array PC. The pressure profile used elsewhere 
in the program is that given by the array PC. The FVSL contribution is 
alternately calculated using the normal velocity profile and derivatives 
from the present station iteration instead of from the previous global 
iteration for the present value of s. The alternate pressure profile 
array PE is then calculated using only data from the present station itera- 
tion. This profile is printed but is not used in other program computations. 

After calculating the pressure profile, the density profile is recal- 
culated and control is returned to MAIN. 

USAGE: 

CALL NMOMNT 


Subroutine RESET 

The converged station solution data are written by this subroutine and 
program parameters are reset for the next station solution. Additionally, 
solution parameters such as drag and heat-transfer coefficients are cal- 
culated in this subroutine. 
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The first section of the subroutine prints the header information for 
the beginning of the global iteration. The skin-friction and heat-transfer 
coefficients are calculated and the Mach number, temperature and electron 
concentration profiles are calculated. Solution profiles are reset for the 
next station solution. The drag coefficients are calculated and the shock 
crossing values are reset. 

The data for the converged station solution are then printed. Profiles 
are printed for every fifth station solution and for the values of s in 
the SPRF array. 

USAGE: 

CALL RESET 


Subroutine RTEDTA 

This routine reads from card input or disc storage the reaction rate 
data for both a binary gas mixture (dissociating oxygen) and for a seven 
species (six major species plus electrons) gas mixture (multicomponent air). 
A rate data title card is read first. For each gas mixture, the number of 
major species plus catalytic third bodies (NJ2 or NJ6), reaction equations 
(NR2 or NR6) and catalytic third bodies (NZ2 or NZ6) are read followed by 
the alphameric array of the species and third body names (NAME2 or NAME6). 
Next the reaction equations and the reaction rate constants (KREQ2 or 
KREQ6 and RATE2 or RATE6) are read followed by the catalytic third body 
array (ZSUB2 or ZSUB6). The stoichiometric coefficient arrays are later 
set in Subroutine SET2 by matching the species names in the KREQ array with 
the names in the NAME array. The first and fourth elements of the RATE 
arrays (COr and DOr) are replaced by the logp (C0 r ) and log e (D0 r ) if the 
first three characters of the rate title card are 'LOG'. 

USAGE: 

CALL RTEDTA 


Subroutine SET 

The initial profiles for each global iteration are set in this routine. 
For a first global iteration the velocity and temperature profiles are set 
to straight lines, but for subsequent global iterations these profiles are 
set to the converged stagnation point profiles from the previous global 
iteration. The species profile arrays are filled with the freestream species 
concentration values unless the previous global iteration was for the same 
number of species. In that case, the species concentration profiles are 
set to the previous global iteration stagnation point profiles. 

USAGE: 

CALL SET 


A'.. 
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Subroutine SET2 


The freestream and wall species concentrations are initialized in this 
subroutine for each global iteration. Also the stoichiometric coefficient 
arrays ALPHSB and BETASB are filled as is the catalytic third body efficiency 
array ZSUB. The routine selects the appropriate data for the arrays depend- 
ing on the value of NS (2 or 6). After the arrays are set, the array data, 
and the reaction equations and rate constants for the global iteration are 
printed. The ZSUB, ALPHSB and BETSUB arrays are also printed. 

USAGE: 

CALL SET2 


Subroutine SHVALS 

The flow properties behind the shock are calculated by SHVALS. The 
thermodynamic and transport properties are first calculated followed by 
velocity, pressure, temperature and density values. The velocity com- 
ponents are first calculated as normal and tangent to the shock. The 
velocity components normal and tangent to the body are then calculated. 
Principal values of the shock properties returned are the average of the 
present and the previous station solution values. The derivatives of the. 
shock properties are also returned. 

USAGE: 

CALL SHVALS (SP, CP, SPB, CPB, TTSH, VRSH, URSH, PPSH, ID) 

where SP = sin a, CP = cos a, SPB = sin a sin <j> + cos a cos CPB = 

cos a sin <f> - sin a cos 4>, TTSH is the shock temperature, VRSH and URSH 
are the velocity components normal and tangent to the shock, PPSH is the 
shock pressure and ID is an indicator (1 or 2) for calculations in the 
first part of the subroutine only (s = 0) or for the entire subroutine. 


Subroutine SMOMNT 

The solution of the longitudinal momentum equation is obtained in 
SMOMNT. The coefficients for the equation in the standard parabolic form 
are first calculated followed by the shock slip variables. Subroutine 
SOLVE is called to return the array U2. With shock slip the shock velocity 
is recalculated. The average velocity profile (UC) is computed and the new 
profile U2 is compared with the previous station iteration velocity profile 
UC1 . The derivative of the velocity profile is calculated and control is 
returned to MAIN. 

USAGE: 

CALL SMOMNT 
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Subroutine SMOOTH 


SMOOTH uses a log-log, walking least squares curve fit of the form 
R = AZ b for interpolation and differentiation.. The input array is scanned 
to assure the point for curve fitting is within range and that there are 
enough array points for the curve fit. If needed, the number of points to 
be used in the curve fit is reduced. 

The function is curve fitted and the function and the first and 
second derivatives returned. 

USAGE: 

CALL SMOOTH (ZD, Z, R, NPTS, RF, RP, NU, RPP) 

where Z and R are the coordinate and function arrays (which may contain 
only positive values) of dimension NPTS, ZD is the coordinate point for 
interpolation and differentiation, NU is half of the number of points of 
Z and R to be used in the curve fit and RF, RP and RPP are the returned 
function value and first and second derivatives with respect to Z. 


Subroutine SMTHPR 

This routine uses Subroutine INTRPS (and consequently SMOOTH) to 
interpolate for a single coordinate value. The coordinate and function 
values are first shifted to provide SMOOTH with only positive values and 
are then reshifted after the call to INTRPS. 

USAGE: 

CALL SMTHPR (S, YS, XX, YX, NPX, NNU) 

where XX and YX are the coordinate and function arrays of dimension NPX to 
be used in the curve fitting by SMOOTH, S is the coordinate value, YS is 
the returned function value and two NNU points are to be used in the curve 
fit procedure. 


Subroutine SOLVE 

This subroutine calculates the solution of parabolic partial differen- 
tial equations in the standard form. Required for the solution are the 
upstream function values (Wl), the coefficients of the parabolic partial 
differential equation in standard form (A1 , A2, A3, and A4), the finite- 
difference grid interval array (DN) and the constants El and FI which set 
the wall value or gradient. The equation is solved by equivalently using 
a tridiagonal finite-difference matrix. The matrix coefficients are 
evaluated from the wall outward and then the function is evaluated from 
the outer edge (shock) inward. With shock slip, the function shock value 
is calculated using the slip variables CS1 and CS2. 
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USAGE: 

CALL SOLVE (W1 , W2, El, FI, CRNI, W2IE, CS1 , CS2, SSFAC) 

where W1 is the previous station solution of the equation, W2 is the returned 
solution, El and FI are constants for the wall value of W2 (El = 0 gives 
W2 = FI at the wall and El = 1 with FI = 0 gives the gradient of W2 at the 
wall equals zero), CRNI ( = 1) specifies a fully implicit finite-difference 
procedure, W2IE is the shock value of W2, CS1 and CS2 are the slip variables 
and SSFAC denotes shock slip (1.0) or no shock slip (-1.0). 


Subroutine SPECIE 

The solution for the species conservation equation is obtained in this 
routine. The Q1 and Q2 arrays are used as substitute arrays to obtain the 
derivatives of the species flux terms, then used in the calls to SOLVE for 
the species concentrations and finally in computing the derivatives of the 
species concentration profiles. Direct solutions are obtained for NS - 1 
species equations and the profile for the last species, 0£ for dissociating 
oxygen and N 2 for multicomponent air, is obtained by summing over the 
other species. 

The coefficients of the standard form of the species conservation 
equations are calculated, the slip variables CS1 and CS2 are calculated, 
the wall value constants El and FI are set and Subroutine SOLVE is called 
to return the new species concentration profiles. 

The species profiles are checked for being within a 0.0 - 1.0 range 
and the profiles and production terms for the NS' th species are recalculated. 
Finally, the sums are obtained for the enthalpy-production term product, 
the enthalpy-production term derivative product, the specific heat-species 
flux term product and the enthalpy-species flux to the wall product. Control 
is then returned to MAIN. 

USAGE: 

CALL SPECIE 


Subroutine THERM 

The species production terms and transport properties are calculated 
in this subroutine. To reduce the computing time required for the disso- 
ciating oxygen chemistry model, the properties are calculated in line using 
expressions specific for a two component gas mixture instead of the more 
general expressions used in the production term and transport property 
subroutines for a multicomponent gas mixture. 

The first part of the subroutine is accessed only once at the beginning 
of each global iteration. This part calculates the freestream and reference 
variables. Also, the species viscosity curve fit constants and reaction 
rate constants for dissociating oxygen are set in this part of the subroutine. 
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The second part of the routine is accessed for each station iteration. 
The enthalpy and specific heat profiles are returned by HCPA and, for a 
multicomponent gas mixture, the viscosity and thermal conductivity arrays 
are returned by VISCNA. 

The next section computes the production terms for the binary gas 
(dissociating oxygen) chemistry and also the equilibrium atom concentration 
(CAEQ) for the binary gas. For the multicomponent gas, the production terms 
are returned by Subroutine WISUB. The next section optionally computes the 
viscosity and thermal conductivity for the binary gas. The species flux 
terms are then calculated. The AJM array is set to zero^ sincia multi- 
component diffusion is not included. The arrays of y'/v and k'/lT are then 
formed where the primes indicate differentiation with respect to y and the 
bars denote y/y^ and k/k sh . 

In the final section of the routine the wall equilibrium concentration 
for dissociating oxygen is calculated as is the equilibrium wall enthalpy 
for dissociating oxygen, h Wse q, HTFLB. For the multicomponent gas, HTFLB 
is replaced by h w . Program ’control then is returned to MAIN. 

USAGE: 

CALL THERM (ISKI, BRAD, CONO, VISCO, EPS, VIS2) 

where ISKI is a control variable indicating the first or second part of 
the routine to be used, BRAD is the nose radius in feet, CONO and VISCO 
are the edge or shock thermal conductivity and viscosity, EPS is the 
Reynolds number parameter, e, and VIS2 is the wall viscosity. 


Function TLU 

Linear, two point interpolation is used to return the value from the 
Z array associated with the name TLU for the XSTAR value in the X array. 

The array dimensions are NTABLE. NFLAG is a function return code, 0 if 
XSTAR is within the range of the X array, 1 (with TLU = 0.0) if XSTAR 
is not in the range of the X array. The X array must be strictly increasing. 

USAGE : 

TLU (NTABLE, Z, X, XSTAR, NFLAG) 


Subroutine VISCNA 

This routine computes the viscosity and thermal conductivity arrays 
for all points of the temperature array, TC. 

USAGE: 

CALL VISCNA (TC, CC, CPI, IE, VST, CST, TTS, TREF, CPREF) 
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where TC is the input temperature, array, CC is the species concentration 
array, CPI is the specific heat array, IE is the number of points in the 
arrays, VST and CST are the mixture viscosity and thermal conductivity 
arrays, TTS is the shock temperature and TREF and CPREF are the reference 
temperature and specific heat. 


Subroutine VISCON 

The viscosity and thermal conductivity for a single temperature value 
are calculated by this subroutine. 

USAGE: 

CALL VISCON (Cl, CPI, AMU, AKAY, TR) 

where TR is the temperature in degrees Rankine, Cl and CPI are the species 
concentrations and specific heats and AMU and AKAY are the mixture viscosity 
and thermal conductivity. 


Subroutine VPRFLE 

The normal velocity profile from the previous global iteration (written 
on tape or disc) is retrieved and smoothed in this routine for a fully 
viscous shock layer. A minimum of eight records are needed from the previous 
global iteration. The gradient of the normal component of the shock velo- 
city is returned by Subroutine INTERP and the normal velocity profile values 
are returned by Subroutine SMTHPR. 

USAGE : 

CALL VPRFLE (S, VP, V, IE, NTR, ICALL) 

where S is the surface distance location, VP is the derivative with respect 
to S of the component of the shock velocity normal to the body, V is the 
normal velocity profile array of dimension IE, NTR is the logical unit 
number for the tape or disc and ICALL is a control variable (= 1, the first 
eight records are read; ? 1, further records are read, if available and 
as needed, to have S in the proper span of the records). 


Subroutine WISUB 

Subroutine WISUB computes the species production terms for the gas 
mixture. The forward and backward reaction rates are computed. The two 
parts of the production rate terms are computed followed by the derivative 
of the production term with respect to temperature in degrees Kelvin. 


USAGE: 

CALL WISUB (RHON, T, N) 
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where RHON is the density in slugs/ft , T is the temperature in degrees 
Rankine and N is the array subscript for the CC, WO, W1 and DW arrays. 


Subroutine BLOCK DATA 

Tables of thermodynamic data and other constants are initialized in 
BLOCK DATA. The species specific heats in ft 2 /sec 2 - °R are in CPTAP, 

the species enthalpy, as (h.j - Ah!j)/T, in ft 2 /sec 2 - °R are in HTAB, the 
corresponding temperature values are in TMPTAB and NTAB is the number of 
table entries. 

The species viscosity curve fit constants are in VSA, VSB and VSC, 
the species heats of formation are in DELHIF, the molecular weights in 
EMI and the species names in NSPI in the order for which the species data 
are assigned. Note that 0 and O 2 , the species for dissociating oxygen, 
are the first two species in the NSPI array. Thus, a calculation for 
dissociating oxygen uses the thermodynamic properties and other data for 
the first two species only. 
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DESCRIPTION OF VARIABLES IN COMMON 


The Fortran variables which occur in the labeled common are listed 
below with the name of the common block in which they occur along with a 
brief description of the variables. 


Fortran 

Symbol 


Common 

Name 

Description 

AA( 51 ) 


C0MAR1 

array used to integrate pu. 

A J B ( 5 1 ,6) 

COMDBL 

factor in transport term for species eauation, 
kLe/C p . 

AJM( 51 ,6) 

COMDBL 

multicomponent Lewis number factor in species 
equation, set equal to zero. 

ALP 


COMXR 

shock angle, a. 

ALPHSB (15,1 1 ) 

COMABZ 

a . , forward stoichiometric coefficients. 

* vj 

ALSUB(15) 

COMABZ 

£ -rl - 1 

ALT 


COMXR 

altitude in feet. 

* 

A1 (51 ) ' 
A2 ( 51 ) 

A3 ( 51 ) 

A4 (51 ) J 

> 

SOLV 

coefficients of the standard 
form of the conservation equations. 

BB ( 51 ) 


C0MAR1 

array used to integrate npu. 

BETASB (15,1 1 ) 

COMABZ 

e ., backward stoichiometric coefficients. 

* J 

BETSUB ( 15) 

COMABZ 

1 

BO 


COMXR 

T /T 

CAEQ ( 51 ) 


COMAR1 

Equilibrium species concentration of atomic oxygen 
that would exist for dissociating oxygen at the 
local temperature and pressure. 

CAINF 


COMBC 

C a , freestream atomic oxygen concentration. 

CAT 


COMG 

00 

indicator for fully catalytic (1.0) or noncatalytic 
wall (-1.0) boundary condition. 
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CAW 

COMBC 

C a , input atom concentration at surface for 
dissociating oxygen. 

CC (51 ,6) 

COMDBL 

C-jj, species concentrations. 

CCFAC 

COMFAC 

weighting function for updating the Cl array at 
the stagnation point. 

CCL ( 51 ,6) 

COMDBL 

array of previous iteration values of the array 
CC. CCL is used in the convergence test. 

CCN( 51 ,6) 

COMDBL 

derivative of C.. with respect to n. 

' J 

CDF 

COMXR 

coefficient for friction drag. 

CDFD 

COMXR 

term in calculating CDF. 

CDFl 

COMXR 

term in calculating CDFD. 

CDF2 

COMXR 

term in calculating CDFD. 

CDP 

COMXR 

coefficient for pressure drag. 

CDPD 

COMXR 

term in calculating CDP. 

CDP1 

COMXR ° 

term in calculating CDPD. 

CDP2 

COMXR 

term in calculating CDPD. 

CIE(6) 

COMEDG 

C s ^ , species concentrations behind the shock as 
calculated by the program. 

C INF (6 ) 

COMFSA 

C-j , freestream species concentrations. 

CO 

CINF6(6) 

COMBC 

the input freestream species concentrations for 
multicomponent air. 

CIW(6) 

COMW 

C.j , the wall species concentrations as calculated 
by w the program. 

CIWW(6) 

COMW 

C -f w , the wall species concentrations for a fully 
catalytic surface. 

CIWW6(6) 

COMBC 

the input wall species concentrations for multi - 
component air for a fully catalytic surface. 

CK 

C0MG2 

the value of k at s. 

CK2 

C0MG2 

the value of k at s + ds/2. 
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CNS 

CClMG 

y sh , shock-layer thickness, more exactly, the 
average of y s h at the present station and at the 
previous station. 

C0N(51) 

COMAR1 

w. y/P sh » viscosity. 

CONO 

INSH 

y sh // ^ >r 

CONREF 

COMREF 

p ref ^Pref’ re ^ erence thermal conductivity. 

COl 

COMAR1 

array used in calculating the derivative of v 
with respect to s. 

C02 

COMAR1 

a second array used in calculating the deriva- 
tive of v with respect to s. 

CP 

COMG1 

cos a at s + ds/2. 

CPB 

COMG1 

cos a sin <j> - sin ct cos <p at s + ds/2. 

CPI (51 ,6) 

COMDBL 

Cp iS ft 2 /sec 2 - °R, species specific heat. 

CP I FS ( 6 ) 

COMFSA 

Cp. , ft^/sec^ - °R, freestream species specific 
heaf . 

CPIW(6) 

COMW 

ct. , ft 2 /sec 2 - °R, species specific heat at the 
nw 

surface. 

CP JSUM( 51 ) COMSUM 

£ Cp . j J-jj, sum over the species of the product 
of specific heat and the diffusional flux. 



CPREF 

COMREF 

C* m , the reference specific heat. 

CPST ( 51 ) 

COMAR1 

? C Pij C ij 

CPTAB(50,6) COMTAB 

table of species specific heat vs. temperature 
from BLOCK DATA. 

CRNI 

COMG 

indicator (set to 1.0 and never changed) 
specifying a fully implicit finite-difference 
solution procedure. 

CRO (-1 5 ) 



CR1 (15) 
CR2 (15) , 

> RTECON 

Coefficients for the forward 
reaction rate equations. 

CSF 

C0MG3 

cos <j> at s. 
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CSF2 

C0MG2 

cos <j> at s + ds/2. 

Cl (51 ,6) 

COMDBL 

array of species concentrations from the previous 
station iteration (if s = 0) or from the previous 
station (if s > 0). 

C2(51 ,6) 

COMDBL 

array of species concentrations for present 
station iteration. 

C20(51 ,6) 

COMDBL 

array of species concentrations at s = 0, saved 
for starting subsequent global iteration. 

DELHIF (6 ) 

COMFSA 

standard species heat of formation at 0° K. 

DIF 

COMTST 

maximum difference in the u/u . arrays between 
station iterations. 

DIFI(8) 

COMTST 

maximum difference in the u/u s h, T/T s h, and C-j j 
arrays between station iterations. 

DN (51 ) 

SOLV 

An, or Ay/y s h, normal spacing in the finite 
difference grid. 

DRO( 15) 



DR1 (15) 

► RTECON 

Coefficients for the backwards 
reaction rate equations. 

DR2 (15) 



DS 

SOLV 

as, or ds, step size in the streamwise direction. 

DW (51 ,6) 

COMDBL 

derivative of the species production term with 
respect to temperature (°K). 

ELN(6) 

COMEL 

number of nitrogen atoms per species molecule. 

EL0(6) 

COMEL 

number of oxygen atoms per species molecule. 

EMBAR(51 ) 

COMARl 

M, mixture molecular weight. 

EMI (6 ) 

COMVS 

M.j , species molecular weight. 

EPS 

INSH 

e, Reynolds number parameter, e = (y re f/pJJJ* n ) 

GAMMMI(15,6) COMABZ 

(B r j " a r j) if ($ r j " a r j) < 0 

GAMMPL(1 5 ,6) COMABZ 

<6 rj ‘ “rj> if (B rj ‘ a r) ) > 0 

HANGLE 

BODY 

asymptotic half angle for hyperboloids . 

HDWSUM(51 ) 

COMSUM 

sum over the species of the product of DW and HI. 
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HI (51 ,6) 

COMDBL 

^ p 2 

h. , ft /sec , species static enthalpy. 

HINF(6) 

COMFSA 

^ 2 p 

h. , ft /secS freestream species static enthalpy. 

* co 

HIW(6) 

COMW 

ht , species static enthalpy at the body surface, 
'w 

sum over the species of the product of enthalpy 
and the diffusional flux at the wall. 

HJSUMW 

COMSUM 

HREF 

COMREF 

h* e ^ = U* 2 , reference enthalpy. 

HTAB(50,6) 

COMTAB 

(h* - Ah!j)/T, ft^/sec^ - °R, table of species 

static enthalpy over temperature versus tempera- 
ture from BLOCK DATA. 

HTFLB 

COMW 

mixture enthalpy at the wall if NS = 6; if NS = 2, 
the wall enthalpy for 0-02 in equilibrium. 

HWSUM(51) 

COMSUM 

sum over the species of the product of enthalpy, 
species concentration and species production 
terms . 

I 

COMG 

index for the streamwise solution DO loop. 

IE 

SOLV 

number of points in the normal direction of the 
finite-direction grid. 

I END 

COMXR 

maximum number of stations in the streamwise 
direction; upper limit of the variable I. 

IGEOM 

BODY 

indicator for body geometry, 

1. hyperboloid 

2. paraboloid 

3. geometry defined by table of r, z and s 

IJK 

KJI 

indicator, 0 for first call to Subroutine GEOM, 
123 for subsequent calls. 

IM 

SOLV 

IE-1 . 

IUN 

COMXR 

input unit number for reaction rate data. 

JFAC 

BODY 

indicator for axisymmetric flow (1) or two- 
dimensional flow (0). 

K 

COMG 

index for the global iteration DO loop. 

KNTR1 

KNTR 

counter for the number of records read on unit NTR. 
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KNTW1 


KNTW2 

^ KNTR 

KPLTTP 

COMXR 

KREQ2 (15,6) ‘ 
KREQ6(15,6) ' 

| COMSET 

KRTITL(18) 

COMSET 

KT ITLE ( 20 ) 

TITLE 

NAME2 (11 ) 1 

NAME6(11 ) J 

i 

COMSET 

i 

NAN 

INV2 

NITER 

COMG 

NITMIN 

COMXR 

NITTOT 

COMXR 

NJ 

C0MNS2 

NJ2 * 

NJ6 . 

| COMSET 


counters for the number of records 
written on unit NTW. 

indicator for plot data being written on unit 
NTPL; 0, no; 1 , yes. 

arrays for the reaction equations for the disso- 
ciating oxygen (KREQ2) and multicomponent air 
(KREQ6); used to set the values of ALPHSB and 
BETASB. 

title card for reaction rate data. If 'LOG' 
appears in the first three spaces, C0(J) and 
(DO) J are replaced by AL0G(C0(J)) and AL0G(D0(J)). 

title card for the computation case being run. 
KTITLE is printed with each station solution. 

arrays of species and catalytic third body 
names, left justified. 

indicator for analytic or nearly analytic bodies; 

1, yes; 0, no. Negative values of NAN specify 
alternate methods of calculating the shock-layer 
thickness, XNS. (See the description of Subroutine 
MASS). 

counter for the number of iterations at each 
streamwise station. 

control variable allowing DS to be doubled if 
NITER < NITMIN. 

total number of station iterations performed 
for each global iteration. 

number of species plus catalytic third bodies. 

values to be assigned to NJ for dissociating 
oxygen (N02) or multicomponent air (NJ6). 


NR 


C0MNS2 number of reaction equations. 


NR2 

NR6 


COMSET 


values to be assigned to NR for dissociating 
oxygen (NR2) or multicomponent air (NR6). 
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NS 

COMNS 

number of major chemical species; 2 for disso- 
ciating oxygen, 6 for multicomponent air. 

NSM1 

COMNS2 

NS - 1 . 

NSOLD 

COMSO 

value of NS for the previous global iteration. 

NSPI (6) 

COMVS 

alphameric array of the six major chemical species, 
left justified, from BLOCK DATA. 

NSPRF 

COMPRF 

number of values of s at which solutions are to 
be specifically obtained and with profiles 
printed; maximum value, 10. 

NTAB 

COMTAB 

number of entries in the CPTAB, HTAB and TMPTAB 
arrays, 49. 

NTOT 

COMXR 

total number of station iterations for all global 
iterations. 

NTPL 

COMXR 

output unit number for optional plot data, (13). 

NTW 

COMXR 

unit number for storing v profiles for subsequent 
global iteration, 15 or 16. Profiles are written 
on unit NTW and read from unit NTR. The values 
are switched at the end of each global iteration. 

NZ 

C0MNS2 

NJ - NS, number of catalytic third bodies. 

NZ2 

COMSET 

NJ2 - NS2. 

NZ6 

COMSET 

NJ6 - NS6. 

OLDSLP 

COMXR 

previous value of XNSP(I). 

PC ( 51 ) 

COMARl 

P/P $h » average of the PI and P2 arrays. 

PCN ( 51 ) 

COMAR1 

derivative of PC with respect of n. 

PE(51) 

COMARl 

alternate pressure array. 

PFAC (51 ) 

COMARl 

pressure related factor occurring in the standard 
form of the energy and s momentum equations. 

PHI 

COMXR 

body angle at s + ds/2. 

PINF 

COMFS 

P*, lbf/ft 2 , freestream static pressure. 

PPS 

OUTSH 

average of current and previous station or itera- 
tion values of P $h * 
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PPSO 

COMSO 

P sh at t ^ ie sta 9 nat i° n point. 

PPS1 

OUTSH 

p sh f° r t * ie Previous station or, if s = 0, 
iteration. 

PPS2 

OUTSH 

P sh ^ or t ^ ie P resent station iteration. 

PREF 

COMREF 

P* ef , reference pressure, p* U* 2 . 

P2 (51) 

C0MAR1 

derivative of P/P s ^ with respect to s. 

PSP 

OUTSH 

derivative of P^ with respect to s. 

P0( 51 ) 

COMAR1 

array of P/P s ^ at the stagnation point. 

P0N(51 ) 

COMAR1 

derivative of PO with respect to n- 

P 1(51) 

COMAR1 

array of P/P s h for the previous station, or, 
if s = 0, iteration. 

PI N ( 51 ) 

COMAR1 

derivative of PI with respect to n- 

P2(51) 

COMAR1 

array of P/P ^ for the present station iteration 

P2N( 51 ) 

COMAR1 

derivative of P2 with respect to n- 

Ql(51) ] 

1 

► COMAR1 

\ 

substitute arrays, principally for solving 

Q2 ( 51 ) ] 

the species conservation equations. 


COMVS universal gas constant, from block data, 49686 
lb ft 2 / (lb-mole sec 2 °R). 


RATE2 (15,6) "j 

1 

► COMSET 
1 

reaction rate constants, CO, Cl, C2, DO, D1 
for the dissociating oxygen (RATE2) or for 

RATE6(15,6) \ 

multicomponent air (RATE6). 

RC (51 ) 

C0MAR1 

p/p s ^> density, average of R1 and R2. 

RC0N( 51 ) 

C0MAR1 

(1/F) (dF/dn) where F = k/k s ^ . 

RCSF(51) 

C OMARI 

y sh cos */(r w + y sh n cos *). 

RE FAC 

COMG 

p sh v sh y sl/ e ^ y sh* 

REYIN 

COMFS 

* * * * 

Re , p U R / v , freestream Reynolds number. 

REYSH 

OUTSH 

Re sh* p * R p/ y sh’ s ^ ocl< Reynolds number. 

RINF 

COMFS 

^ O 

p , freestream density, slugs/ft . 
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I 


RNSH(51 ) 

COMAR1 

y sh /(1 + K y sh 

RREF 

COMREF 

* — * 
p ref ” p ~* 

RRS 

OUTSH 

average of current and previous station or 
iteration values of p sh - 

RRS1 

OUTSH 

p s h for the previous station or, if s = 0, the 
previous station iteration. 

RRS2 

OUTSH 

p sh for t ^ ie P resen,t station iteration. 

RS 

COMG3 

r., body radius at s. 

RSH 

COMRX 

r $ h» radial coordinate of current shock point. 

RSP 

OUTSH 

derivative of p^ with respect to s. 

RS2 

COMG2 

r.., body radius at s + ds/2. 

W 

RVISC ( 51 ) 

COMARl 

1/u (dy/dn) where y = y/y $h - 

R1 (51 ) 

COMAR1 

p/psh> density at previous station, or, if 
s = 0, from the previous station iteration. 

R2(51 ) 

COMARl 

p / p sh> density for the current station iteration. 

S 

INSH 

s = s*/R*, surface distance coordinate. 

SEND 

COMXR 

final value of s. 

SIF 

COMG3 

sin <j> at s. 

SIGM 

PRLE 

a, Prandtl number. 

SMALLT 

COMSML 

a small number for test purposes. 

SP 

COMGl 

sin a at s + ds/2. 

SPB 

COMGl 

sin a sin <j> + cos a cos <f> at s + ds/2. 

SPRF(IO) 

COMPRF 

array of values of s at which specific solutions 
are to be obtained and profiles printed. 

SSFAC 

COMG 

indicator for shock slip; 1.0, yes; -1.0, no. 

SWFAC 

COMG 

dummy indicator for wall slip; 1.0, yes; -1.0, 
no. The program only includes no wall slip. 

TB 

COMW 

T*, wall temperature, °R. 
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TC (51 ) 

COMAR1 

T/T s h> temperature, average of T1 and T2. 

TCIE 

COMEDG 

TC (IE) . 

TCNW 

COMBC 

derivative of T/T ^ with respect to n at the wall. 

TCW 

COMW 

TC(1 ) . 

THIN 

COMG 

indicator for TVSL (1.0) or FVSL (-1.0) flow. 

TINF 

COMFS 

* 0 
T^, freestream temperature, R. 

TMPTAB(50) 

COMTAB 

* 0 

T m , R, table of temperature values for species 
enthalpy and specific heat, from BLOCK DATA. 

TPSH 

INSH 

dT/dn at the shock where T = T/T s ^. 

TREF 

COMREF 

* D *2 * 

T re ^, reference temperature, R, U^ /Z^ . 

TSP 

OUTSH 

derivative of T $h with respect to s. 

TTS 

OUTSH 

T sh , shock temperature, average of TTS1 and TTS2. 

TTSO 

COMSO 

T $ h at the stagnation point. 

TTS1 

OUTSH 

T s h at the previous station or, if s = 0, for the 
previous station iteration. 

TTS2 

OUTSH 

T s h for the present station iteration. 

TW 

COMW 

T , wall temperature, 
w 

T1 (51 ) 

COMAR 1 

T/T h for the previous station, or, if s = 0, 
for sn the previous station iteration. 

T2(51) 

COMAR1 

T/T s h for the present station iteration. 

T20{51 ) 

COMAR 1 

T/T s h at the stagnation point. 

T21 (51 ) 

COMAR1 

T/T sh from the previous station iteration. 

UC (51 ) 

COMAR 1 

u/u sh , tangential velocity, average of U1 and U2. 

UCN ( 51 ) 

COMAR1 

derivative of UC with respect to n- 

UC1 (51 ) 

C OMARI 

u/u sh from the previous station iteration. 
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UFAC 

COMFAC 

factor to average the updating of the U1 and T1 
profiles at the stagnation point if more than 
20 iterations are required. 

UINF 

COMFS 

U*, freestream velocity, ft. 

UPSH 

INSH 

derivative of the component of u/u . tangent to 
the shock with respect to n. " > ‘ 

URSH 

COMUV 

u s ^> shock velocity component tangent to the shock. 

UREF 

COMREF 

U* e f» reference velocity, U*. 

USP 

OUTSH 

derivative of u s ^ with respect to s. 

UUS 

OUTSH 

u s h» shock velocity component tangent to the body, 
average of UUS1 and UUS2. 

UUSO 

COMSO 

u s ^, at the stagnation point. 

UUS1 

OUTSH 

u s h at the previous station, or, if s = 0, from 
the previous station iteration. 

UUS2 

OUTSH 

u sh ^ or t ^ ie P resent station iteration. 

1)1 (51 ) 

C0MAR1 

u/ugh at the previous station or, if s = 0, from 
the previous station iteration. 

1)2(51 ) 

C0MAR1 

u/u sh for the present station iteration. 

1120(51 ) 

COMARl 

u/u$ h » at the stagnation point. 

VC ( 51 ) 

COMARl 

v/v sh , normal velocity component. 

VCD( 51 ) 

COMARl 

v = v*/u* ef ; VC x VVS. 

veil (51) 

COMARl 

v profile from the previous global iteration 
at s. 

VCI2 ( 51 ) 

COMARl 

v profile from the previous global iteration 
at s + ds/2. 

VG ( 51 ) 

COMARl 

average of VCI1 and VCI2. 

VGN ( 51 ) 

COMARl 

derivative of VG with respect to n. 

VGS(51 ) 

COMARl 

derivative of VG with respect to s. 

VISC(51 ) 

COMARl 

u/y sh , viscosity. 

VISCO 

INSH 

w sl/ y ref * 
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VPG 

COMG 

average of VSP at s and at s + ds/2 from the 
previous global iteration. 

VRSH 

COMUV 

Vsh> shock velocity component normal to the shock 

VS{ 51) 

C0MAR1 

derivative of the v profile with respect to s. 

VSA(6) ^ 



VSB(6) 

> COMVS 

coefficients for the species viscosity 
curve fit equations. 

V SC(6) 

t 



VSP 

OUTSH 

derivative of v s ^ with respect to s. 

VSPPl 

COMVSP 

derivative of v s k with respect to s at s, from 
the previous global iteration. 

VSPP2 

COMVSP 

derivative of v s h with respect to s at s + ds/2, 
from the previous global iteration. 

VSREF 

COMREF 

y*ef» reference viscosity, lbf-sec/°R, correspond 
ing to l* ref . 

VVS 

OUTSH 

v s h» shock velocity component normal to the body, 
average of VVS1 and VVS2. 

VVSO 

COMSO 

v sh’ at sta 9 na ti°n point. 

VVS1 

OUTSH 

v S ft at the previous station or, if s = 0, from 
the previous station iteration. 

VVS2 

OUTSH 

v sh ^ or P resent station iteration. 

V0(51 ) 

COMAR] 

v/v sh , at the stagnation point. 

VON( 51 ) 

C0MAR1 

derivative of VO with respect to n. 

VI (51) 

C0MAR1 

v / v sh profile at the previous station, or, if 
s = 0, from the previous station iteration. 

V2(51 ) 

C0MAR1 

v / v sh profile for the present station iteration, 
equal to VC. 

V2N(51 ) 

C0MAR1 

derivative of V 2 with respect to o. 

WREF 

COMREF 

W* ef , reference value for nondimensional izing the 
production terms, U*/R*. 

WVFAC 

COMXR 

averaging factor for the v/v u profiles before 
they are written on disc. 3 
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W0( 51 ,6) 

COMDBL 

first component of the species production term. 

W1 (51 ,6) 

COMDBL 

second component of the species production term. 

XB 

C0MG3 

x, axial coordinate of the current solution point. 

XJFAC 

BODY 

indicator for axisymmetric (1) or two-dimensional 
(0) flow, the real variable equivalent of JFAC. 

XLE 

PRLE 

Le, binary Lewis number. 

XN(52) 

SOLV 

array of n» y/y sh , values. 

XNS 

INSH 

y s h, shock layer thickness calculated for the 
current station. 

XNSIVO 

INV2 

term in computing y $ ^. 

XNSIV1 

INV2 

ysh as calculated by matching the freestream mass 
flow through the shock with the mass flow through 
the shock layer. 

XNSP ( 202 ) 

COMARL 

derivative of XNS with respect to s at s. 

XNSPM 

C0MG2 

derivative of XNS with respect to s at s + ds/2 
from the previous global iteration. 

XNSTMP 

INV2 

storage variable for the value of y s h obtained by 
integrating the n momentum equation. 

XNSO 

COMXR 

an initial value for y $h at the stagnation point. 

XNS1 

C0MG3 

value of y s h at the previous station, or, if 
s = 0, from the previous station iteration. 

XSH 

COMXR 

X axial coordinate of the current shock point. 

XS0L(200) 

COMARL 

array of s values at which solutions were obtained 

XU25 

COMTST 

U2 (15), the fifteenth value of the U2 array. 

ZSUB (5,6) 

COMABZ 

array of the third body occurrences or the third 
body catalytic efficiencies relative to Argon. 

ZSUB2(5,6) 

ZSUB6(5,6) 

i 

■ COMSET 

values to be given ZSUB for dissociating oxygen 
(ZSUB2) or for multicomponent air (ZSUB6). 
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DESCRIPTION OF INPUT DATA 


To reduce the need to read in a large number of data cards for each 
case, most of the card input can be read on input units other than the main 
card input unit. The auxiliary input unit numbers are initialized but can 
be changed, in most cases, through the namelist input data. The input 
data are described in the order that it is required with the unit number 
and format. 


Data Input in MAIN 


KTITLE, Unit 5, (20A4) 

An alphameric card image array of descriptive information for the 
particular case being run. KTITLE is printed as a header for each 
streamwise solution. 

INPUT, Unit 5 (NAMELIST format) 

The principal control and scalar variables are read through the 
NAMELIST INPUT. Many of the variables are initialized before INPUT 
is read so that only the principal variables need to be included in 
the NAMELIST. The individual variables for INPUT are described in 
a separate subsection below. 

(CINF6(J), J=1 ,6) , Unit 5, (6F10.5) 

Freestream species concentrations for the six principal air species, 

0, 0 2 , NO, N, N0 + and N 2 - 

(CIWW6 ( J ) , J=1 ,6) , Unit 5, (6F10.5) 

Species concentration for the six principal air species at the body 
surface. These values are not used for an NCW (CAT=-1.0) case, but 
are used for an ECW (CAT=1 .0) case. For ECW, the values for CIWW6 
correspond to the equilibrium wall concentrations. 

SN(N) , SHSLPN(N) , ENSHN(N) , ENO, Unit NTSH (default value for NTSH is 5), 
(3E15.6, Al), optional, read if NDATA f 0. 

Array members (up to 300) defining an initial shock shape. 

SN, s, location on the body surface of the corresponding shock points. 

SHSLPN, local slope of the shock, i.e., dy s ^/ds. 

ENSHN, y sh , local shock-layer thickness. 

Note: SHSLPN is recalculated from differentiating ENSHN and 

averaging four times this derivative over three points. The 
user might wish to use the value of SHSLPN which is read in 
and eliminate the need for the ENSHN array retaining the 
smoothing procedure. 
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ENO, a control character indicating if more cards are to be read. If 
ENO is a blank character, more cards are read. If ENO is any non- 
blank character, no more cards of these arrays are read and NSDATA 
is set to the current value of N. 

STWA(N) , TWA(N), ENO, Unit NTTWA (default value for NTTWA is 5), (2E15.6.A1); 

optional, read if KTWAL j 4 0. 

Array members (up to 100) defining a body surface temperature distribution. 

STWA, s, surface location for the corresponding temperature. 

TWA, surface temperature, °R. 

ENO, control character as described above. If ENO is non-blank no more 
cards for these arrays are read and NPTT is set to the current value 
of N. 

SPRF, Unit 5, (10F8.0); optional, read if NSPRF f 0. 

An array (maximum 10) of values of s, the number being equal to NSPRF, 
at which specific solutions are to be obtained and full profiles 
are to be printed. The values of this array should be selected to 
avoid abrupt and large changes in DS, if possible. If a solution 
is desired at a specific location, two or three solution stations 
upstream should be specified so that the program approaches the 
desired solution station with a constant DS. 

SPRF(NSPRF) is set equal to SEND. 


Data Input in Subroutine RTEDTA 

c 

Subroutine RTEDTA is called once by MAIN for each case to read the 
reaction rate data. All data in this subroutine are read on input unit 
IUN (default value for IUN is 19). The value of IUN is passed through 
common from MAIN. 

KRTITL, (A3.17A4) 

An alphameric array giving header information for the reaction rate 
data. 

The remaining data are read for both a two and a seven species 
chemistry system. Each variable ends with the character 2 or 6 
(e.g. NJ2 and NJ6, being the values of NJ for a two or a seven species 
chemistry system. The values for the required system are later selected 
in subroutine SET2. 

NJ2, NR2, NZ2, (313) 

The values of NJ, NR and NZ for the two species chemistry system. 
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(NAME2(I) , 1=1 ,NJ), 20A4 

Species and catalytic third body names, left justified in the A fields. 

((KREQ2(I,J) , J=1 ,6) , (RATE2,(I,K) ,K=1 ,6) , I=1,NR2), (6(1X,A4) ,2(F10.0, 

F6.0,F4.0)) 

KREQ2, the specie names for the reaction equation. The first three 
are for the forward reaction, the second three are for the backward 
reaction. Blanks are to be included as needed. As an example of 
the equation: 

02.. +02.. + =0... +0... +02.. where the periods represent 

blank characters. 

RATE2, the forward and backward rate constants; CO, Cl, C2, DO, D1 , D2; 
for the corresponding reaction equations. CO and DO may be in either 
of the two conventional forms (e.g. for the equation above CO as 
44.92469 or 3.24 x 10'9). Internally the program uses the first 
form. If the second form is input, the form is indicated to the 
program by the first three characters of KRTITL being 'LOG 1 . If so, 
CO and DO are replaced by log a (C0) and log_(D0). 

( ( ZSUB2 ( I , J ) ,J=1 ,NS2) ,1=1 ,NZ2) ,(6F10.5) , optional, read if NZ2 (=NJ2-NS2)>0. 

The ZSUB array for the two species chemistry system. The corresponding 
variables are also read for the seven species chemistry system, 
these being NJ6, NR6, NZ6, NAME6, KREQ6 , RATE6 , and ZSUB6. 


Data Input in Subroutine GE0M 

If the body geometry is specified in tabular form (IGE0M=3), the first 
time subroutine GE0M is called by MAIN the body geometry tables are read. 

ZAX(I) , RWA(I) , SUR(I), CKA(I), THA(I) , KND, Unit IRN4 (assigned value for 
IRN4 is 4), (5E14.6,A1 ) 

Arrays, of up to 300 members, specifying the body geometry. 

ZAX, z = z*/R* , axial coordinate of the current point. 

RWA, r = r*/Rn s the radial distance from the body axis to the surface 
for the current point. 

SUR, s = s*/R^, the surface distance from the stagnation point to the 

current point. 

* 

CKA, k = k /R . surface curvature, 
n 

THA, e, angle between body tangent and axis. 

KND, control character. If KND is a blank character, more cards are 
read for the geometry arrays. If KND is a non-blank character, no 
more cards are read and I is retained as the number of elements in 
the arrays. 
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Input Data in NAMELIST INPUT 


The variables below are read through NAMELIST INPUT on Unit 5. On 
some computing systems (e.g. IBM) variables in the NAMELIST statement need 
not appear in the card input and many of the variables are initialized 
before the READ (5, INPUT) statement and need not appear in the card stream. 
The real variables are described first followed by the integer variables. 

The initialized value, when appropriate, is given in parentheses after the 
variable name. 

ALT, variable to indicate in the output the altitude of the case 
conditions. ALT is not actually used in the calculations. 

BRAD, R*, the body nose radius in feet. 

CAINF, (0.0), the freestream atom concentration for a binary reacting 
mixture. 

CAT, (1.0), indicator for catalytic or noncatalytic wall condition; 

1.0 for catalytic wall; -1.0 for noncatalytic wall. 

CAW, (0.0), the atom concentration for a binary reacting mixture at 
the wall for a catalytic wall. CAW is not used for a noncatalytic 
wal 1 . 

CCFAC, (0.0), weighting factor used in the updating of the species 
concentration profiles for a seven species gas mixture at the 
stagnation point. 

CONVRG, (0.01), convergence criterion. The variable values for U, T 
and C-j (except for N0 + ) are required to change by less than CONVRG 
between station iterations at each point in the finite-difference 
grid for convergence. For N0 + the converaence criterion is 
100 x CONVRG. 

DS, (0.1), initial step size in the s direction. After the stagnation 
point solution, DS may be doubled or halved depending upon the 
values of DSMAX, NITMIN and NITMAX. 

DSMAX, (5.0), an approximate upper limit of the step size, DS. DS 
may be doubled until DS > DSMAX but then DS may not be further 
increased. 

HANGLE, (10.0), asymptotic half angle for hyperboloids. 

PRINTCI, (0.0), control variable which allows printing of full pro- 
files for each station iteration with atomic balance sums if 
PRINTCI=1 .0. Printing of these profiles is suppressed if 
PRINTCI=0.0. 

RINF, p*, freestream density in slugs/ft^. 

SEND, (0.0), the final value at which a solution is to be obtained. If 
NDATA=0, SEND is set to DS x (IEND-1). If NDATA f 0, SEND is reset 
to SN(NSDATA) if SEND = 0.0 or > SN(NSDATA) . 
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SIGM, (0.7), a, Prandtl number. 

SITEST, (0.0001), convergence criterion for the shock temperature 
returned by Subroutine SHVALS. 

SMALLT, (1.0 x 10"®), small factor to be added to or subtracted from 
1.0. For computations with 14 or more significant figure accuracy 
(equivalent to IBM double precision) SMALLT should be set to 
1.0 x 10-10. 

SSFAC, (-1.0), control variable which specifies if the calculation is 
to be with no shock slip (-1.0) or with shock slip (1.0). 

SWFAC, (-1.0), control variable, unused except for header output, 
specifies no wall slip. 

TB, T*, body surface temperature, °R. 

THINI, (-1.0), control variable for the second and subsequent global 
iterations being TVSL (1.0) or FVSL (-1.0). THIN is set equal to 
THINI at the end of each global iteration. 

TINF, T*, freestream temperature, °R. 

UFAC, (0.5), specifies the amount of the previous station iteration 
u and T profiles to be mixed with the new iteration values of u and 
T at the stagnation point if more than twenty station iterations are 
required for a solution. 

UINF, U*, freestream velocity, ft/sec. 

WVFAC, (0.25), the amount of the new v profiles at each station to be 
mixed with the v profiles from the previous global iteration before 
the v profiles are written on disc or tape if the present global 
iteration is FVSL. Only third and subsequent global iterations 
are affected. 

XKETA, (1.0), parameter which determines the spacing of the points of 
the finite-difference grid. A value of 1.0 gives uniform spacing, 
a value such as 1.04 gives more grid points near the body surface. 

XLE, (1.4), Le, binary Lewis number. 

XNS0, (0.1166), an initial value of the stagnation shock-layer thickness, 
used only for the first station iteration. 

IE, (51), number of points in the finite difference grid in the normal 
direction. 

IEND, (200), maximum number of solution stations in the streamwise 
direction. IEND should not exceed 200. 

IGE0M, Indicator for body geometry; 

1. hyperboloid 

2. paraboloid 

3. tabular data geometry 
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IUN, (19), input unit number for reaction rate data. 

JFAC, (1), indicator for axisymmetric (1) or two-dimensional (0) flow. 

KEND, (2), number of global iterations to be made. 

KPLTTP, (0), indicator which specifies whether plot data are to be 
written on Unit NTPL; 0, no; 1, yes. 

KTWAL, (0), indicator for input wall temperature distribution data 
on Unit NTTWA; 0, no; 1, yes. 

NAN, (1), indicator for analytic or near analytic bodies; 1, yes; 

0, no. Negative values of NAN specify alternate methods of cal- 
culating the shock-layer thickness, XNS, as given in the description 
of Subroutine MASS. 

NDATA, (0), indicator for input of shock shape data on Unit NTSH; 

0, no; 1 , yes. 

NITMAX, (9999), number of station iterations permitted at a station 
before the s step size is halved and the program tries for a con- 
verged solution at the reduced value of s. 

NITMIN, (3), the s step size is doubled if a converged solution is 
obtained at a station in NITMIN or fewer station iterations. 

NITMNI, (3), the value assigned to NITMIN for the second and subsequent 
global iterations. 

NS, (2), number of species for the first global iteration; selects 
gas chemistry model; 2, binary reacting gas; 6, multicomponent 
reacting air. 

NSI,(2), value assigned to NS for second and subsequent global 
iterations. 

NSPRF, (0), number of values of s to be read into array SPRF at 
which specific solutions are to be obtained and profiles printed. 

NTSH, (5), Input Unit number for shock shape data arrays. 

NTTWA, (5), Input Unit number for wall temperature distribution 
arrays. 
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PREPARATION OF INPUT DATA 


The principal guide to the user on preparing input data for the computer 
code is the section "Description of Input Data." This section describes 
steps which a user should follow in preparing input data for the program. 

It is suggested that the user cross reference this section with the section 
"Description of Input Data." 

Minimum Input Data Required 

Much of the input data for the program is optional. This subsection 
describes the minimum input data which the program requires. On logical 
unit 5 the program requires KTITLE (the title card), the NAMELIST INPUT, 
and the freestream and wall species concentration values for multicomponent 
air (CINF6 and CIWW6). Also required are the reaction rate data read by 
Subroutine RTEDTA on unit IUN which is initialized by the program (IUN = 19) 
but may be changed by the user as needed. 

The bodies which can be treated with the minimum data required are 
analytic or nearly analytic bodies (e.g. hyperboloids and paraboloids) for 
which it may reasonably be assumed that the shock and body angles are the 
same for the first global iteration (that the pressure distribution is 
Newtonian). Also, for such a case, the step size should be held constant 
and DSMAX should equal DS in the INPUT data. For such a case (with 
NDATA = 0) the maximum value of s (surface distance) would be DS x (IEND + 1). 

While most of the variables in the NAMELIST INPUT are initialized, some 
of the variables are not initialized and values of these variables must 
be provided. The noninitial i zed variables are ALT, the altitude; BRAD, the 
nose radius; RINF, the freestream density; TB, the surface temperature; 

TINF, the freestream temperature; UINF, the freestream velocity and IGEOM, 
the indicator for the body geometry. These variables are specific to a 
given case and must be assigned values in INPUT. 


Shock Shape Data Input 

With NDATA + 0, a shock shape can be input to the program. For hyper- 
boloids (with shock and body angles equal) the requirements for a constant 
step size is thus removed. For some bodies it is not appropriate to use 
the assumption that shock and body angles are equal if the pressure distri- 
bution is non-Newtonian. A shock shape from a blunt body, method of 
characteristics procedure may work well. The user should follow two 
guidelines in preparing shock shape input data. First, the distributions 
shock slope (SHSLPN) and shock-layer thickness (ENSHN) should be smooth. 
Second, the spacing of the points (the array SN) should be quite small 
near the stagnation point but may increase gradually downstream (e.g. geo- 
metrically). In the stagnation region, the SN array should be a tenth of 
DS or smaller. 
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For a nearly analytic body, with a smooth contour and with continuous 
curvature, it may be permissible for the shock angle to equal the body 
angle for the shock data input. This would imply that the SHSLPN array 
would be zero and the ENSHN array constant. 


Surface Temperature Input Data 

The principal caution for the input of surface temperature data is 
that the spacing of the data points should change gradually and smoothly. 
Any large and abrupt changes in the distribution of the data points may 
cause difficulties in interpolating for the surface temperature and lead 
to erroneous results. 


Input of Body Geometry Data 

The program provides for tabular input of the body geometry data in 
Subroutine GEOM with IGEOM = 3. This option allows the user to consider 
bodies other than hyperboloids and paraboloids. Due care, however, must 
be exercised in the preparation of these data. The body contour must be 
smooth. Also, the distribution of the body angle or the derivative of r 
with respect to z must also be smooth. The spacing of the geometry 
points must be sufficiently small in the stagnation region (for several 
nose radii downstream of s = 0) to provide an accurate specification 
of the body contour. Since data points are required downstream of a 
solution location, the input arrays should provide geometry data to 
s = SEND + 2DSMAX. Finally, the body curvature must also have a smooth 
and continuous distribution. Accurate and complete specification of the 
surface contour is especially important since the shock shapes for the 
second and later global iterations are calculated from the body geometry, 
the body angle and the shock-layer thickness derivative. 


Variable Values for Specific Conditions 

Axisymmetric or Two-Dimensional flow is selected by the variable 
JFAC (1 or 0). 

Body Geometry is specified by the variable IGEOM (1, hyperboloid; 2, 
paraboloid; and 3, tabular data geometry). 

Fully Viscous Shock-Layer flow is specified by THINI = -1.0 (effective 
on the second and subsequent global iterations). THINI = 1.0 specifies 
Thin Viscous Shock-Layer flow after the first global iteration. 

Gas Chemistry is specified by NS and NSI (for the first and subsequent 
global iterations, respectively). Values of 2 specify dissociating oxygen. 
Values of 6 specify multicomponent, ionizing air. Computing time is saved 
and little accuracy is lost if NS = 2 even if NSI = 6. 
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Nearly Analytic or analytic geometries are specified by NAN = 1. Non- 
analytic geometries are specified by zero or negative values of NAN. The 
options for NAN £ 0 are described in the description of Subroutine MASS. 

Shock Slip is specified by SSFAC. = 1.0. No shock slip is specified 
by SSFAC = -1.0. 

Mall Catalyticity is specified by the variable CAT. CAT = -1.0 

3Ci 

specifies a noncatalytic wall (NCW) with —7 = 0. CAT = 1.0 specifies 

wall 

a catalytic wall and the values of CAW and CIWW6 are used for dissociating 
oxygen and multicomponent air, respectively. 
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DESCRIPTION OF OUTPUT DATA 


The principal printed output of the program is on Unit 6. Supplemental 
output of the program is on other units. The Unit 6 output is described 
followed by the output on the other units. 


Unit 6 Output 

At the beginning of the Unit 6 output, KTITLE, the case header card, 
is written. Following KTITLE, the NAMELIST INPUT, is printed. Some values 
of the NAMELIST variables may be reset between the reading and the printing 
of INPUT. The remaining Unit 6 output is repeated for each global iteration 
and within each global iteration the station output is repeated for each 
solution station. 

The global iteration output begins with a listing of the reaction rate 
data subheader card followed by the reaction equations and reaction equation 
rate constants, the ALSUB, ALPHSB, BETSUB, BETASB arrays. Following is the 
ZSUB array if NZ is > 0. 

After the reaction rate data the values of VSREF and VSINF (y* e f and 
y*) as calculated in the first section of subroutine THERM are printed. 

At the beginning of each global iteration, after a converged station 
solution is obtained, header information to the global iteration is printed. 
The first line gives the following data. 

UINF U*, ft/ sec, freestream velocity. 

PINF p*, lbf/ft 2 , freestream static pressure. 

TINF T*, °R, freestream static temperature. 

CAINF C aoe , freestream oxygen atom concentration for the dissociating 
oxygen chemistry model. 

TB T w , °R, wall temperature. 

BRAD R*, ft, nose radius. 

PR Pr, Prandtl number. 

LE Le, binary Lewis number. 

YSH y $ j 1 , at the stagnation point. 

ALT altitude, ft. 
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The second line describes the conditions and gives THIN SHOCK LAYER, 
(TVSL) , or NO THIN SHOCK LAYER, (FVSL), NO WALL SLIP, NO SHOCK SLIP or SHOCK 
SLIP, CAT WALL, (ECW), or NO CAT WALL, (NCW), the number of steps in the 
y direction (IE), the maximum number of steps in the s direction (IEND), 
and the initial step size (DS). 

The next line gives the values in the SPRF array if NSPRF > 0. 

The final line gives the following data. 

TW/TS Tj/T*, ratio of wall to stagnation temperature, BO. 

EPS e, {y* f/fp^ U ro R n )> ' , Reynolds number parameter. 

REYIN Re , p* U* R*/y*, freestream Reynolds number based on tht nose 
radius. 

^ 

REYSH Re sh , p oo U co ^^^sh’ S * 10C,< Reynolds number. 

TREF T* e f*. °R> *J*^/^p » reference temperature. 

UREF u * e f’ ft / sec » reference velocity, U*. 

* 3 k 

RREF p re f’ S ^ U 9 S /^ > reference density, p ro . 

ITER global iteration number. 

The remaining output on Unit 6 is station output and for each solution 
station the output is similar. The station output begins (if PRINTCI = 0.0) 
with a line after each station iteration is completed giving K (the global 
iteration number), I (the station number), S (the streamwise location of the 
solution being attempted), NITER (the number of the station iteration) and 
DIFI (the maximum difference found for the u/u s h> T/T s h and C-j arrays, 
respectively). If, however, PRINTCI = 1.0, this line is replaced by an 
output array giving the same information with the y/y s ^ (XN), u/u s u (UC), 
T/T s h (TC), the Ci arrays (headed by the species names;, the sum of the C-j 
(SUMCI), the atom concentration sums for 0 (SUMO) and for N (SUMN). 

After a converged solution is obtained, KTITLE is printed followed by 
the solution data for the station. For each station, four lines of output 
are printed. Additional output (profiles) are printed if s equals one of 
the values of the SPRF array or if I = 1, 6, 11, etc. (every fifth station). 

LINE 1: 

S s, surface distance. 

X x, axial coordinate to current surface point. 

R r w , radial distance from the body axis to current surface point. 
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YSH 


YSHP 

XSH 

RSH 

NO ITER 

NITTOT 

NTOT 

I 

K 

LINE 2: 

DS 

CF 

HEAT 

STAN 

CDF 

CDP 

CDTOT 

PWALL 

TWALL 

PW/PO 


y$h» current shock-layer thickness, CNS. 

derivative of y $h with respect to s. 

x s ^, axial coordinate for the current shock point. 

r sh* rac *' , ' a ^ distance from the body axis to the current shock point. 

number of station iterations required to obtain the converged 
solution. 

total number of station iterations required for the current 
global iteration. 

total number of station iterations required including those for any 
previous global iterations. 

I, the current station number. 

K, the current global iteration number. 


ds, step size in the s direction. 

C f , skin friction coefficient. 

q w , dimensionless heat transfer coefficient. 

St, -q w /(H co - H w ), Stanton number, where H w is the enthalpy at the 

wall if NS = 6 and if NS = 2 the wall enthalpy for 0 and 0^ in 
equilibrium. 

Cd^., the skin friction contribution to the drag coefficient. 

^D p » the pressure contribution to the drag coefficient. 

Cp, total drag coefficient. 
p w » (PC(1) x PPS), wall pressure. 

T*, °R, wall temperature. 

P w /P Ws= q> ratio of wall pressure to wall pressure at the stagnation 
point. 
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LINE 3: 


YSHP(S 

derivative of y u with respect to s at s from the SHSLPN 
array. 

YSHP(S + DS/2 

derivative of y h with respect to s at s + ds/2 from the 
SHSLPN array. sn 

NEW YSHP 

derivative of y . with respect to s as calculated by the 
program. 

ALPHA(S + DS/2 

a, shock angle at s + ds/2. 

PHI (S + DS/2 

4> , body angle at s + ds/2. 

KAPPA (S 

k, body curvature at s. 

KAPPA(S + DS/2 

k, body curvature at s + ds/2. 

LINE 4: 

USH 

u s k, tangential velocity component behind the shock;first 
value U* h /U* e ^; second value U* h , ft/sec. 

VSH 

v sh* norrna ^ velocity component behind the shock; first value 
V* h /U* e f; sec ond value, V* h , ft/sec. 

TSH 

T s h, temperature behind the shock; first value, T*. /T* 
second value, T*^, °R; third value, T*^, °K. n 

RSH 

p s h» density behind the shock. 

PSH 

P $h , pressure behind the shock. 

VPG 

average of the derivatives of v s w with respect to s at s and 


s + ds/2 from the previous global iteration. 


The profile output is printed only if the value of s is one of the 
values of the SPRF array or if I = 1, 6, 11, etc. The first block of profile 
data is printed for both dissociating oxygen and for multicomponent air. 

The second block of profile data is printed only for multicomponent air. 

The first block of profile data includes N, the grid point number; 

Y/YSH, the XN array; U/USH, the UC array, the tangential velocity profile; 
V/VSH, the VC array, the normal velocity profile; T/TSH, the TC array, the 
temperature profile; R/RSH, the RC array, the density profile; P/PSH(APPR) 
the PC array, the pressure profile; P/PSH, the PE array, an alternate 
pressure profile; CA, the CC (N , 1 ) array, the concentration profile of 
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oxygen atoms; CAEQ, the CAEQ array, the species concentration of atomic 
oxygen that would exist for dissociating oxygen at equilibrium; XM, the 
Mach number profile; and T °R, the temperature profile in degrees Rankine. 

The second block of profile data includes N, the grid point number; 
Y/RN, y*/R*; the species concentration profiles for 0, 0 2 , NO, N, N0 + and 

N ? ; E/CC, the electron number density profiles; Y IN, y* in inches; and 
Y^CM, y* in centimeters. 


Unit 1 Output 

The program output on Unit 1 provides convenient access to principle 
data generated by the program as a function of s. The following data are 
printed for each converged solution. 

K the global iteration number. 

I the station number. 

S/RN s = s*/R*, surface distance. 

ITER the number of station iterations needed to obtain a converged 
solution at that value of s. 

YSH y $ ^, shock layer thickness, XNS. 

YSHP the calculated derivative of y g ^ with respect to s, XNSP(I). 

CF Cf, the skin friction coefficient, CFCH. 

HEAT q w , the nondimensional ized heat transfer. 

STAN St, Stanton number. 

PW/PO ratio of P to P at the stagnation point. 

w w 

Q/QO ratio of q to q at the stagnation point. 

S s*, ft, surface distance. 

QDOT q*, heat transfer, BTU/ft 2 sec. 

Unit 3 Output 

The output for Unit 3 is similar in approach to that on Unit 1 but of 
different content. 
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K the global iteration number. 

I the station number. 

ITER the number of station iterations needed to obtain a converged 
solution at the value of s. 

^ A 1 

S/RN s /R n , surface distance. 

YSH y $h , the shock-layer thickness, XNS. 

YSH-D y s h as calculated from the integration of the mass conservation 
equation. 

YSH-ST ysh as calculated by matching the mass flow through the shock 
with the mass flow through the shock layer. 

YSH-AV y $h as the average of YSH-D and YSH-ST. 

E-/CC.MAX the. peak value of the electron number density. 

3 

XN, E-MAX the value of y/y gh corresponding to the peak N e /cm . 

Y,IN,E-M the value of y*, in inches, corresponding to the peak N e /cm . 

S/RN s*/R*> surface distance. 

S FT s*, ft, surface distance. 


Unit 8 Output 

The output on Unit 8 is divided into two groups. The first group is 
printed only if NDATA / 0; that is, if shock shape data are input to the 
program. 

The first group of output data consists of S, s*/Rn> the surface 
distance (the array SN); YSHP, the corresponding derivative of y S h with 
respect to s (the array SHSLPN); and N, the array subscript. 

The second group of output data is written line by line as solutions 
are obtained. The first part of the line is written before a solution at 
the given station is attempted. The second part of the line is written 
after a converged solution is obtained at the given station. The data for 
the first part of the line are as follows. 

STA. NO. I, the station number. 

S s, surface distance. 
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OLDXNSP 


ysh (the derivative of y S h with respect to s) at s from the 
previous global iteration or from the array SHSLPN. 

XNSPM y^h at s + ds/2 from the previous global iteration or from 

the array SHSLPN. 

ALPHA(S+DS/2) a, the shock angle at s + ds/2. 

The remainder of the line is printed after a converged station solution 
is obtained. These data are: 


NEW XNSP 
NEW YSH 
XSH 
RSH 


the new value of y^ computed by the program. 
y $ h» XNS, computed by the program, 
x coordinate of the shock point, 
r coordinate of the shock point. 


Unit 9 Output 

At the end of each station iteration the following data are printed on 
Unit 9. 


K global iteration number. 

I the station number. 


S s, the surface distance. 

NITER the number of iterations at that station. 


NITTOT the total number of station iterations for the global 

iteration. 

TFACT a primitive convergence criterion U2 ( 15) old - U2 (15) new 

iteration. 


DIF maximum difference for the velocity profiles between 

station iteration. 

(unnamed) XNS, the current station iteration value of y $ ^. 

(unnamed) CNS, the average of XNS and y^ at the previous station or, 

if s = 0, from the previous station iteration. 
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Unit NTPL Output 


After a converged station solution is obtained, the following data are 
written unformatted on Unit NTPL (13) in Subroutine RESET if KPLTTP ^ 0 for 
plotting or other purposes appropriate to the user; 

K global iteration number. 

I station number. 

XSOL(I) s, the surface distance of the solution point. 

XB x w , axial coordinate of the solution point. 

RS r , radial coordinate of the solution point. 

XSH x^, axial coordinate of the shock point. 

RSH r $h , radial coordinate of the shock point. 

CNS y s ^, shock-layer thickness. 

CFCH C f , skin friction coefficient. 

STAN St, Stanton number. 

PWRAT ratio of P w to P w at the stagnation point. 
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APPENDIX A: ANALYSIS 


This appendix presents in an abbreviated form the analysis of the 
viscous, shock-layer problem as given in the companion engineering report. 
The equations are written for a body oriented coordinate system as shown 
in Fia. 3. Unless indicated otherwise, variables using a superscript 
star (*) are dimensional and unstarred variables are nondimensional . 


Governing Equations 

The equations for shock-layer flows of multicomponent gases are given 
below. 

Continuity Equation: 

Tr {(r + y cos pu} + |-- {(1 + <y) (r + y cos <|>) J * pv} = 0 (1) 


s-Momentum Equation: 


1 „ 3iJ j. .. 3u .... k L 1 9P 2 a 

T*7y pu 8? + pV 7y + puv T+*y + T+77 M e 87 



du 

kU 

y 

- 

[ay 

1+Ky j 


e y 


L 2k + 

j cos <t> I 

3U 

kU 

1+Ky + 

r + y cos <t> j\ 

[ ay 

1+Ky 


y-Momentum Equation: 

.2 


3P 

3y 


1+ K y pu 
which becomes 

3 p _ k .,2 

pu 


1 .. 3V 

1+Ky pu 3s 


3V 

pv 3y 


(FVSL) 


(TVSL) 


3y 1 +<y 

if the thin shock-layer approximation is made. 


( 2 ) 


(3a) 


(3b) 
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Energy Equation: 


3T 


1+xy pu C P 3s + pv C p 3y " l+*y u 3 s ’ 3y 


at _ J_ u It . v a£ = 


2 3_ /. 3t\ + 2 I < + J COS tj) 

3y v 3 y' 1+icy r + y cos <f> 


ns 


k II. e 2 
3y 


j. c — 

{-> 1 Pi ay 

i=l 1 


2 

e v 


(^-Tf^) 2 -E <«> 

i=l 


Species Conservation Equations: 


1 9C i . u 9C i _ • 23 /, v 2 

They pu 3s“ + pV 3y“ " w i _ e ay " e 


ic + j COS d> 

1+ K y r + y cos 


J i 


where J. is the diffusion mass flux term of species i, 


and 


(5) 


Equation of State: 


P = 


_ pRT 


* 

MC 

P° 


( 6 ) 


With binary diffusion only and with constant binary Lewis numbers (all 
equal), the diffusion mass flux term of the species is given by 


3C. 

J i - - h Le i 37 - 

The species mass fractions are given by 

C 1 = Pj/p 

The frozen specific heat of the mixture is given by 

ns 

vZ c i c Pi 

i=l 1 


(7) 


( 8 ) 


( 9 ) 


and the mixture molecular weight is given by 
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( 10 ) 


" " ns C. 

£ m 1 

1-1 1 

The preceding equations are nondimensional . The dimensional equations 
were nondimensional ized by the following relations: 


* 1 1* 
u = u U 

oo 

(Ha) 

* !»* 
v = v U 

oo 

(lib) 

T* = T T* = T U* 2 /C* 
ref °° p°° 

(He) 

P* = P P* u * 2 

CO 00 

(Hd) 

* * 

P = P Pco 

(lie) 

* * 
u - v Href 

(Ilf) 

k * ■ k \ef 

dig) 

C P = C P C P» 

(Hh) 

h* = h u* 2 

oo 

(Hi) 

«i - w, p! 

(Hj) 

J * ■ J 1 >VeX 

(Ilk) 

* ^ 
s = s R 

n 

(111) 

y =yR n 

(11m) 

* _ D* 

K - K R n 

(lln) 

* * 
r = r R n 

(Ho) 


The dimensionless parameters which appear in the shock-layer equations are 
given by the following relations: 
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* * * 

Pr = C p y /k 


■ 


ref 


* * * 

p u K 

oo oo ft 


and 


* * * * 
Le. = p C D . / k 


02a) 

(12b) 

(12c) 


For the finite-difference solution procedure, the shock-layer equations 
were transformed. The independent and dependent variables (except for the 
species concentrations) were normalized by their local shock values. 

The transformed independent and dependent variables are 


n - y/y sh 

(13a) 

5 = s 

(13b) 

“ = U/U sh 

(13c) 

7 = v/v sh 

03d) 

P = P/P sh 

(13e) 

p= P/P sh 

(13f) 

T - T / T sh 

(13g) 

^ = u/u sh 

(13h) 

* = k/k sh 

(131) 

c n = c/c 
P P p sh 

( 1 3 j ) 


and 


The transformations relating the differential expressions are 

y' 


9_ _ 3_ 
3S ~ 35 


Sh 3 
*Sh " 8 " 


(14a) 
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a_ _ _]_ 9__ 
3y y sh 


04b) 



*sh ^ 


(14c) 


where 



^sh 

d£ 


(14d) 


When written in the transformed £,n coordinates, the s -momentum, energy 
and species continuity equations (Eqs. 2, 4 and 5) can be expressed in the 
following standard form for a parabolic partial differential equation: 


3 2 W 

9n 2 


+ A, 


9W 

9n 


+ An W + A- + 


A 2“ = 
M 4 


(15) 


where W represents u in the s momentum equation, T in the energy equation and 
C-j in the species continuity equations. The coefficients A] through A 4 are 
functions of the independent and dependent variables and may be written as 
follows: 


s-momentum equation 

a - 1 9yT + ^sh + J y sh cos ^ + y sh y sh p sh u sh pujn 

1 - - an H.y sn n r + y sh „ cos * £ 2 ^ n) - 


y sh p sh v sh pv 
2 

e p sh y 

^sh 1 . Ij^sh 3 cos * 

1+ ^sh " 7 8,1 (1 +K y sh n) 2 ( 1+ ^sh") > r + ^sh " cos *> 


^sh p sh u sh pu _ K8, sh p sh v sh 
e 2 p sh (1+Ky sh n) 7 c 2 M sh 0+Ky sh n) 


pv 

y 


(16a) 


(16b) 
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p 


(16c) 


A 3 = " 2 


4 


e y sh u sh (1+Ky sh ^ 


V L 


p 9P sh + p £P ^sh_ p 3P 
35 sh 35 71 y $h sh 3n 


A 4 = 2 


y sh p sh u sh pu 
^ y sh (1+,cy sh ^ i 7 


Energy Equation 
= 1 3k + 


Ky sh + y sh J cos ♦ 


sh 


1 Y an l + <y $h n r + y $h n cos <j> 


k sh k 


ns 

I c p, 

i-i 


*sh °sh S f C P 


‘ k sh k 


v sh v 


— U Sh *Sh U " 

1+Ky sh n 


A 0 = A 


1 3T sh y sh w 2 


2 4 T h 35 


sh - £ k sh F 


A 3 " 2 


4h “1 


y sh Psh P 


e T sh k sh k T ~ u k “ u k 


'sh ^sh 


u sh 3u KU sh u 


y sh an l+<y ch n 


sh 


y sh u sh u 


e (1+Ky sh n) T sh k sh k L 


K^Sh 


y sh P 35 + y sh P sh 35 " y sh P sh n 3n 


y sh P sh V sh v 3P 
e2T sh k sh F 911 


A = _ y sh C P S h p sh u sh C p pu 
4 e2 ( 1+Ky sh n) k sh k 


(16d) 

(17a) 

(17b) 


(17c) 

(17d) 


55 



Species Conservation Equation 


« _ 1 30B + y sh K + y sh cos * y sh p sh v sh pV + 

1 OB 1+icy sh n r + y sh n cos 4 . " £ 2 JB 


y sh y sh p sh u sh pu 11 
e 2 JB 0 + Ky s h n) 


A 2 - 


y sh p sh p w i 
e 2 JB 


(18a) 


08 b) 


A 3 ‘ 


2 - 0 
y sh P sh p w i 

2 JB 


(18c) 


y sh p sh u sh pu 
m 4 " " 2 


e JB 0 + <y S h n) 


(18d) 


where 


JB = 


“sh » Le i 
Pr sh W 


(18e) 


In the transformed coordinates the remaining equations are 
Continuity Equation 

*sb (r + *sh " cos * )J 8 sh “sh ■ 


3 _ 


3_ 

3n 


- 

(r + y $h n cos t ) 0 fyj h p sh u sh 5S, - (l+icy sh o> P sh v $h ^ _ 


(19) 
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y-momentum equation 


p sh 

9P 

KU sh 


rr; 2 . v sh ■>» 

3V 

*sh fsh u sh v sh 8 " v sh 

ll+K >sh 

"nT 


*sh u sh 

an 

pu . 

9V + V 

8v sh 

y sh 

— iZ 

= n 


1+Ky sh 71 

8 5 » sh 

3S 

y sh 

9n 

u 



(20a) 


which becomes 

il _ Ky sh p sh u sh — 2 

3n " P sh U + <y sh n) p 


(20b) 


if the thin shock-layer approximation is made, and 

State Equation _ 

M . 

P-p’T (21) 

M 


The energy and species conservation equations (Eqs. 4 and 5) include 
the rate of production terms, ft.j , of species i. For the energy equation, 
the production term is written so that the temperature appears as an unknown 
as 


-) ■ 
p / 

1 ?) * 

r 

in 


r 

3 1 
di ! 


T k+1 " T k 

' k+1 

1 1 k 

. 


k 

L J 


where k denotes the iteration for which the solution is known and k+1 the 
iteration for which a solution is sought. The production term in the energy 
equation (Eq. 4) was rewritten as 

ns 

Yj h i w i = W 1 + T sh T w 2 
i=l 

and the terms wi and W2 appear in the energy equation coefficients (Eqs. 17b 
and 17c). For the species conservation equation, the production term was 
written so that the species mass fractions appear as an unknown as 
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( 24 ) 


and the terms w-j 0 and Wj 1 appear in the species conservation equation 
coefficients (Eqs. 18b and 18c). 

The viscous shock layer for nonequilibrium chemistry is described by 
equations (15) through (21) together with the appropriate boundary conditions 
and relations for the thermodynamic and transport properties. 


Boundary Conditions 

At the body surface, the no s 
n - 0, the surface conditions are 


and 


i boundary conditions are 

imposed. For 

u = 0 

(25a) 

v = 0 

(25b) 

T = T w 

(25c) 


where T w is either a constant or has a specified variation. For a noncatalytic 
surface, (NCW), the species boundary conditions are 


3C. 

9n~ 


= 0 


(25d) 


The equilibrium catalytic wall (ECW) conditions are specified by 


Ci = C. (T ) (25e) 

eq 

In the program the ECW condition is approximated by a fully catalytic surface 
(FCW) condition specified by, for example, 

Cq 12 0, Cq^ = 0.23456, C^q = 0, = 0, C^q+ ~ ® and = 0.76544 (25f) 

At the shock, the velocity components tangent and normal to the shock 
are not the same as the components tangent and normal to the body surface. 

The velocity components tangent and normal to the shock are denoted by u s h 
and v s f-i and the components tangent and normal to the body surface are denoted 
as u s h and v s ^. The transformation relating the two sets of shock velocity 
components is 
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u sh = ^sh sin + P) + \b cos + 


(26a) 


and 

v sh = “ ^sh cos (“ + + v sh sin (a + b) (26b) 

where b = tt/2 - <|>. 

For shocks of finite thickness called shock slip (SS), the shock properties 
are given by the modified Rankine-Hugoniot relations (see Davis and Cheng) 
below. 


p sh ^sh = - sin “ 

2 | \ 

e p sh lay/ + sin “ u sh = sin ° cos “ 



sin 2 a 


C i h i 


sh 


sin a 
2 


(27a) 

(27b) 

(27c) 


{(u$h - cos a)^ + sin' 


- v sh } 


and 


ns 

» sin a £ c i h i ( 27d ) 

. 1 00 00 

1=1 


2 

E 


sh 


Pr 


sh 



9C ish 

9y 


+ sin a 



sin a C i 

co 


(27e) 


With no shock slip (NSS) the Rankine-Hugoniot relations are used to 
determine the shock values. Eqs. (27a) and (27c) are unchanged. The expres- 
sions for u . , T u and C. become 
sh sh i $h 

A 

u$h = cos a (28a) 
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a 


ns 


£ C i h i_ , “ ^ u sh 
1-1 ” sh 


cos a) 2 /2 + (sin 2 a - V sh )/2 


ns 

E c i h f < 28b > 

. - oo oo 

1=1 


and 


Ci = C. (28c) 

sh 1 » 


The shock conditions for the dependent variables (at y = 1) are 


u~=v = r = P = T= 1 (29a) 

and 

C, = C. (29b) 

1 n sh 


Surface Transport 


The surface skin friction and heat transfer rates are given by the skin 
friction coefficient and Stanton number. The skin friction coefficient is 
given by 


C 


f 



* 



oo 


where 


* 


T 


w 




(30a) 


(30b) 


In terms of the nondimensional ized variables, the skin friction coeffi- 
cient is given by 


C 



2 



(30c) 


The Stanton number is given by the expression 
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* * # ★ * v 

Poo V oo K - HJ 

oo oo oo yy 


(31a) 


or in the dimensionless variables 


H - H. . 

OO W 


(31b) 


where 


k E Vi 

ay i=l 


(31c) 


q w = ' e 


2 k|I- £ h, 0, 


Old) 


n - 2 . dT. y n_ , 0 h _J 

q w ‘ _e k ay + Pr Le i h i ay 


Ole) 


with the restriction of constant and equal Lewis numbers, 


Thermodynamic and Transport Properties 


The program has tables of species enthalpy and specific heat in the form 


h» - Ah* O n 

— Uj= ; ft z /sec-R 


(32a) 


C D = C_ ; ft 2 /sec 2 -°R 
1 P 


(32b) 


Second order Lagrangian interpolation is used to obtain the values of H. and 
Cp. from the tables. The species enthalpy and specific heat are then calculated 
from the expressions 
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(33a) 


h. = T H. + Ah R ; ft 2 /sec 2 


and 


C = C n ; ft 2 /sec 2 -°R 


(33b) 


F , 


where Ah^ is the heat of formation of species i. 

The viscosity of each of the individual species is calculated from the 
curve fit relation 


y ■ = exp (C.) T., ^ A i 1n T k + V; — 
i r i k cm-sec 


(34) 


where A.,- , B.j and Cj are the curve fit constants for the species and T|< is 
the local temperature in degrees Kelvin. The units of the species viscosity 
are converted to lbf-sec/ft^. 


The thermal conductivity of the individual species is calculated from 
the expression 


k i M, 


p i R l C Pi M i . s\ 


lbf 


sec °R 


(35) 


After the viscosity and thermal conductivity of the individual species 
are calculated, the viscosity and thermal conductivity of the mixture are 
calculated using Wilke's semi -empirical relations; 
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i=l 


X i *i 


ns 
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(36) 


ns 

1=1 


X, k, 


ns 

E 

j=l 


' £ x i •« 


. lbf 
’ sec-°R 


( 37 ) 


where X. = C i M/M i 


I 


In the program, the diffusion model is limited to binary diffusion with 
the binary diffusion coefficients specified by the Lewis number from Eq. (12c). 

Le i =• p Cp D^./k 

The values of the Lewis numbers used are 1.4. 


Chemical Reaction Model 


In the program, the chemical model assumes reactions proceeding at a 
finite rate, and the rate of production terms, w-j , of the individual species 
are needed. The production terms occur in the energy equation (Eq. 4) and 
the species conservation equations (Eq. 5). For a multicomponent gas with 
ns distinct chemical species and nr simultaneous chemical reactions, the 
chemical reaction equations are written in the general stoichiometric form 

nj k. nj 

E Vi x i E s h x i (38) 

i=l \ i=l 

where r = 1, 2, ... nr and nj is equal to the sum of the species and the 
catalytic third bodies. The quantities Xj represent the chemical species and 
the catalytic third bodies, and the a r i and e n * are the stoichiometric coef- 
ficients for reactants and products. The rates at which the forward and 
backward reactions occur are specified by the forward and backward rate 
constants which are given by the equations 

C2 

kf r = T k r exp (C0 r - Cl r /T k ) (39a) 

and 

kb r - T k D2 r exp (D0 r - Dl r /T k ) (39b) 


where T^ is the temperature in degrees Kelvin and C0 r , Cl r , C2 r , D0 r , Dl r , 
and D2 r are tabular constants. 


With the forward and backward reaction rate constants given by Eq. (39) 
the net mass rate of production of species i per unit volume, w^, is given 
by the equation 



E 


r=l 


(3 • ” Ot . ) ( L.C - Li ) 
\P P1 rv v f b ' 
r r 


(40) 
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where 


nj 


Q 

s 

II 

M 

<3 

rj 

1 


0=1 




nj 





3 • ■ 
rj 

- 1 


j = l 





Oty-» 

P 

nj 


Lf = kf 
r r T r 

n 

j=i 

“ rd 

*-br - 

P r 

nj 

n 

(vj) 6rJ 



j=i 


7 (gm/cm 3 ) 

= 0. 

.51536 

p (slugs/ft 


For the ns species the mass concentrations y. are given by the expressions 

J 

C i 

Y,- = j = 1, 2, ... ns 

j 

whereas for the catalytic third bodies the y . are given by the following 
expressions J 

ns 

“ £ Z (j-ns),i J * "J 

i=l 


The quantity ^ is the third body efficiency relative to argon and is 

determined from the reaction being considered. 

Rewritten so that the species concentrations appear as one of the 
unknowns, the rate of production terms are given by the expression 



p 


*? ■ "1 c i 


where 


(24) 
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(41a) 


nr 


= y i £ ^ r ri Lf r + r ri Lb r^ 
r=l 


nr 


w] - E < r H O-bp/Y,) + r’, (Lf/y,)} 

r=l 


(41b) 


(B 


n 


ri ” “ri 5 ^ ^ri 


if (B ri 


“ri 5 > 0 


a • ) < 0 

ri ' - 


if (6 H - “H> -° 


r ri 


~^ri ” a ri 5 if ^ri “ri 5 < ^ 


With temperature in degrees Kelvin, T^, the expression for the deriva- 
tive of w.j/ p with respect to T is 


8 I W i 


&T,. ip 


M i 


nr 


'T 1 E <f*rl - “r1> {<C2 r + c V T k - <V> Lf. - 


r=l 


r 'k “r' ** T r 


(D2 r + Dl r /T k - B r ) L b } 


(42) 


Method of Solution 


A finite-difference method is used to solve the governing differential 
equations for the viscous shock-layer flows. The solutions for the continuity 
and n-momentum equations are obtained by integration with the trapezoidal 
rule. The s-momentum, energy and species conservation equations are expressed 
in the standard form for a parabolic partial differential equation 


8 2 W 

an 2 


+ A, 


3W 

an 


+ A„ W 


+ A 3 + 


9W 

as 


= 0 


(15) 
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These equations are solved using the algorithm described by Davis. 


Solution for S-Momentum, Energy and Species Conservation Equations 

With the finite-difference grid as shown in Fig. 4, Taylor series expan- 
sions are used to relate the partial derivatives to the function values at the 
finite-difference grid points. 

With the functions and the partial derivatives evaluated at (m + 0, n), 
the difference quotients are 

W = 0 Wjj +1 + (1 - e) wjj (43a) 


f - 9 < a l Cl + b l Cl + C 1 C!> + (1 - e > (a l C 1 + b l W m + C 1 

(43b) 


2 

3 W ^ ,,n+l . . ,,n 

7T = 6 < a 2 W m + 1 + b " W - 

9n 


2 m+1 


+ c 2 Cl' + 


e) (a- w" +1 + b, w" + c, Vl"' 1 ) 
z m 2 m Z m 

(43c) 


and 


3W 


■ «n . ,n 

W I -i “ w 

m+1 m 


3? AS 

where 

a l = An n-l // ^ Ar, n An T^ 

b l = ^ Ar| n “ Ar| n-1 
C 1 ~ - An n / ( An n _-j Any) 

a 2 = 2/(.An n Any) 

b 2 = - 2/(An n An n _-,) 


A Vl } 


(43d) 

(44a) 

(44b) 

(44c) 

(44d) 

(44e) 
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c 2 = 2 ^ Ari n-l An T^ 

(44f) 

An T = An n + A Vl 

(44g) 

An n = n n+l " n n 

(44h) 

An n-1 n n-l 

(441) 


Substitution of Eqs. (43) into Eq. (15) gives the following simultaneous 
linear algebraic equations involving only W at m + 1 . 


S n C] + Cl + e n Cl ' °n 


(45) 


where n = 2, 3, ...» N-l . The coefficients for Eq. (45) are given by the 
following expressions: 


V 

(c 2 

+ 

\ 

C 1 

) e 

(46a) 

V 

(b 2 

+ 

A 1 

b l 

+ A« ) 0 + A, /AC 

(46b) 



n 

n n 


V 

(a 2 

+ 

A 1 

a l 

) © 

(46c) 



n 



and 








a n‘ 


3 2 W 

3« 2 


+ A, 


m 


+ a 2 w: 

m c 


m 


(1 - e) - A 3 ♦ A wJJ/45 
n n 


(46d) 


where A] n , A2 n , A 3n and A. 4 n are the coefficients of Eq. (15) evaluated at 

the n th grid point and are given by Eqs. (16), (17) and (18) for the s- 
momentum, energy and species conservation equations. 

Assuming that 


W, 


m+1 


= E W n+1 
n m+1 


+ F_ 


(47) 
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( 48 ) 


n 1 

is valid through the shock layer then W^-| is given by 

u n-l - c w " + F 
m+1 n-1 iti+1 n-1 

Substituting Eq. (48) into Eq. (45) and solving for W^ +1 and comparing 
with Eq. (47) gives the recursion formulas 


E„ = 


B„ + K E n i 

n n n- 1 


(49a) 


and 


D n - A n F , 

P - n n n- 1 

n B n + A n i , 

n n n- 1 


(49b) 


At n = 1 , 


F i - w « and E i 


°- if »: + i ■ w « 


(50a) 


or 


F-j = 0 and E-j 


= 1, if 


-o 


9n 


m+1 


(50b) 


For n = N, the value of W is 


w m+l = w sh 


(51) 


The solution of Eq. (15) is provided by the following algorithm. 
Starting with Eqs. (50), the E p and F p are evaluated with n increasing from 

2 to N - 1 . Then the W*! , are evaluated from Eq. (47) with n decreasing 
from N - 1 to 1 . m 


Solution for Y-Momentum and Continuity Equations 

The normal momentum equation, Eq. (20a), is rewritten so that 3P/3n 
may be evaluated directly as 
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( 52 ) 


3P K y sh p sh “sh 
3i P sh (1 + K y sh n) 


— rr P sh 

P u - 


sh 


sh - - 8V 
- P V ^ 


■^sh p sh u sh v sh 
p sh (1 - K *sh Tl) 


— Tr/lV-.v 3v sh y sh av 

p 1 9 « v sh 3 « ' y sh 85 


with only the first term on the right side of the equation retained when the 
thin shock-layer approximation is made, Eq. (20b). With the y-momentum 

equation written in this form, Eq . ( 52 ) or (20b), the pressure derivative with 

respect to n is calculated. With P at the shock known, P s h = 1, integration 
by the trapezoidal rule from the shock inward gives the solution of the 
normal momentum equation. 

The continuity equation, Eq. (19), when integrated yields both the 
normal velocity (v)*profile and the shock-layer thickness, y , . As given 
previously, the continuity equation is 

k (y sh (r + y sh " CDS * )J p sh “sh } ' 


fe « r + ^sh " cos * )J 


(y sh p sh u sh p “ " ' (1 + K y sh n) p sh v sh p V}1 

(19) 


where j = 1 for axisymmetric flow and j = 0 for two-dimensional flow. 


The mass flux between the body (n = 0) and a given grid point n (n = n) 
is proportional to m n (with denoting n = 1 , the shock) which is given by 


m n 


n 

y sh (r + *sh " cos * )J p sh “sh p “ dn 

0 


(53) 


Integrating Eq. (19) from 0 to n and substituting Eq. (53) gives the following 
form for the continuity equation, 
n 


dm n 

d? 


I 


It {(r + y $h n cos ) J (y^ 


Bn 


sh p sh u sh p u n 


o 


(! + < y sh n) P sh v sh p v}} d n (54) 
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or equivalently as 


ar ■ <r + y sh " cos *) J {y; h p sh u sh p u r, - 0 + K y sh n) P sh v $h p v} 

(55) 

The term dm n /d5 is obtained by evaluating Eq. (53) as s + ds/2 and s - ds/2 
and dividing by ds. The normal velocity, v, is then obtained by rearranging 
Eq. (55). 

The shock-layer thickness is obtained by integrating Eqs. (53) and (54) 
from 0 to 1 instead of from 0 to n. This gives 

1 1 

m N = y sh p sh u sh rJ J p “ + 3 y sh p sh u sh cos 4 » “ " dr > < 56 > 

0 0 

and 

dm N . 

cTs ( r + ^sh cos ^ ^sh p sh u sh ^ + K ^sh^ p sh v sh^ ^7) 


The term dm^/d? could also be evaluated from 


dm 


N _ 1 


("Vs + ds/2 " ^fPs - ds/2 


d5 A? 

Rearranging Eq. (58) gives 


dm 


N 


^ m N^s + ds/2 ‘ A5 dg + Sl^s - ds/2 


(58) 


(59) 


First, dniw/dg is evaluated from Eq. (57). Eq. (59) then gives mw and Eq. 

(56) is solved for ysh- 

When written as in Eq. (19), the continuity equation is indeterminate 
at s = 0. In order to evaluate the continuity equation at the stagnation 
point the following limit expressions as c ■> 0 are used: 

r -»■ e, cos<f> '►gand u $h -*■ g u^ where u^ h = d u sh /dg. Also, at s - 0, y^ h = 0. 
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Denoting r I ac/ 2 as r 2 anc * cos ^^ac/ 2 as cos ^2’ 
equation is 


the form of the continuity 


3_ 

9n 


[0 + y sh n) J+1 c V 



2_ 

A? 


j+1 


(j + U y 


sh 



+ y 


sh 



p sh u sh p u 


(60) 


where p s h v s h = - sin a = - 1 at s = 0 has been used. Integrating from 0 to 
n and rearranging terms gives the following expression for the normal velocity 
component. 


v = 


2l J+1 (j+1) hb p sh U sh 

45 J p (1 + y sh n) 3+1 


PJ 

A 


p u d n + j y $h cos 4> 2 


1 


p u n 


dr, 


(61) 


Integrating Eq. (60) from 0 to 1 gives the following equation 


O * y sh ) J+1 = 



( j+i ) y s h Pgh u S h 



L 


1 


p u dn 


1 

+ J >sh C0S *2 J p u n dr, 
o 


(62) 


which can be solved for the shock-layer thickness, y gh , by rearranging terms. 

An alternate method for determining the shock-layer thickness, y $h , is 
given in the companion engineering report. 


Solution Procedure 


At each s or 5 location the shock-layer equations are solved in the 
order of species, energy, s-momentum, continuity and y-momentum. At each 
location the solution is iterated until convergence is obtained for the 
tangential velocity, temperature and species concentration profiles at all 
points of the finite-difference grid. The convergence test requires that 


where n denotes the finite-difference grid point, k denotes the previous 
iteration value^ of W n , k + 1 denotes the new iteration value of VL, W 
represents u, T or C-j and <s is a small number, typically 0.01. After a con- 
verged solution is obtained at a specific location, 5 , the profiles are then 
used as initial profiles for obtaining a new solution at 5 + a?. In this 
way the solution procedure marches downstream. 

If the governing equations were fully parabolic, only one global itera- 
tion (i.e., a solution for the entire length of the body) would be sufficient. 
However, the equations depend upon d y s h/d? (and thus_the shock angle). Also, 
the y-momentum equation (in FVSL form) depends upon 3v/3? which is not known 
(especially at the stagnation point). The downstream dependence introduces 
an elliptic nature to the equations. The elliptic effect in the y-momentum 
equation is resolved by considering TVSL flows for the first global iteration. 
Subsequent global iterations may then be FVSL using the v profiles from the 
previous global iteration. 

The elliptic effect due to d yeh/d£ is resolved by making a suitable 
approximation for d y s ^/d£ for the first global iteration. Subsequent 
global iterations then use d y^/ds as calculated from the previous global 
iteration. 
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List of Symbols 


C i 


P 

ECW 

FVSL 

h 

H 

k 

Le.j 

M 

M 

nj 

ns 

nr 

nz 

NSS 

NCW 

P 

Pr 

q 

r 

R 

Re. 


concentration of species i, p^/p 

specific heat at constant pressure 

denotes equilibrium catalytic wall 

denotes fully viscous shock layer 

static enthalpy, h*/U* 2 

total enthalpy, H*/U* 2 

thermal conductivity, k*/(y* *0* ) 

ref poo 

Lewis number, C* p* D?/k* 

Molecular weight 

mixture molecular weight, 1 / ( z C./M.) 

i 1 1 

number of species plus catalytic third bodies, ns + nz 

number of species 

number of chemical reaction 

number of catalytic third bodies 

denotes no shock slip 

denotes noncatalytic wall 

pressure, P*/(p*U* 2 ) 

Prandtl number, Cpy /k 
heat transfer, q*/(p*U*^) 

1 OO CO ' 

body radius, r*/R* 
universal gas constant 
body nose radius 

p* U* R* 

shock Reynolds number, — — * 

y sh 
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s 

St 

SS 

T 

T* 

'ref 

TVSL 

u 

v 

y 

z 


Z (j-ns),i 


rj 




e 

K 

P 

* 

y ref 

p 


coordinate measured along body surface, s*/R* 
Stanton number, - H w ) 

denotes shock slip 


temperature, T /T* ef 

*2 * 

reference temperature, /C^ 

denotes thin viscous shock layer 

velocity component tangent to the body surface, u*/U* 

velocity component normal to the body surface, v*/U* 

coordinate measured normal to the body, y*/R* 

coordinate measured along body axis, z*/R* 

third body catalytic efficiencies relative to argon 

angle between shock tangent and body axis 

forward stoichiometric coefficients 

backward stoichiometric coefficients 

species mass concentrations, 


Reynolds number parameter, 


surface curvature, k /R, 


ref 


1 1/2 


* * * 
p u K 

00 oo ft 


coefficient of viscosity, y /y ref 
coefficient of viscosity evaluated at T* ef 
density, p */p* 

angle between body tangent and axis 


Superscripts 

indicator for axisymmetric flow (1) or two-dimensional flow (0) 

dimensional quantities 

denotes differentiation with respect to £ 
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Subscripts 


eq equilibrium value 

i specie i 

sh value behind the shock 

w wall value 

°° freestream value 
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APPENDIX B: SAMPLE CASES 


Input and output data are given for four sample cases; two geometries 
and two gas chemistries for each geometry. The geometries are a 31° hyper- 
boloid and a curve fit geometry (the 140B orbiter). The gas chemistries 
are binary gas (dissociating oxygen) and 7-species (multicomponent) air. 

The Job Control Language (JCL) needed to run the sample cases on the IBM 
370/158 computers of the Virginia Polytechnic Institute and State University 
Computing Center is also listed. The sample cases were run in double pre- 
cision with the source program and all input data from cards. 


Job Control Language for the 140B Orbiter Sample Cases 

//B0030VSL JOB 509E3,MINER,MSGLEVEL=(1 ,1 ) 

/♦PRIORITY IDLE 

/♦MAIN TIME=05 ,LINES=1 0 ,CARDS=0 
/♦MAIN REGI0N=238K 
// EXEC FORTGCLG 
//FORT.SYSIN DD * 

FORTRAN Source Program 


/* 

//G0.FT01F001 DD SYS0UT=A 

//G0.FT03F001 DD SYS0UT=A 

//G0.FT08F001 DD SYS0UT=A 

//G0.FT09F001 DD SYS0UT=A 

//G0.FT1 5F001 DD UNIT=SYSDA, DISP=(NEW, DELETE) ,SPACE=(440, (200)) , 

// DCB= ( RECFM=VS,BLKSIZE=440 , LRECL=436 ) 

//G0.FT16F001 DD UNIT=SYSDA,DISP=( NEW, DELETE) ,SPACE=(440, (200) ) , 
// DCB= ( RECFM=VS,BLKSIZE=440 , LRECL=436 ) 

//G0.FT04F001 DD * 

Body Geometry Data 


/* 

//G0.FT19F001 DD * 

Reaction Rate Data 


/* 

//G0.FT20F001 DD * 


Shock Shape Data 


/* 

//GO.SYSIN DD * 

Unit 5 Input Data 


/* 

// 
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Job Control Language for the 31° Hyperboloid Sample Cases 

//B0030VSL JOB 509E3,MINER,MSGLEVEL=(1 ,1 ) 

/♦PRIORITY IDLE 

/♦MAIN TIME=05,LINES=10,CARDS=0 
/♦MAIN REGI0N=238K 
// EXEC FORTGCLG 
//FORT. SYS IN DD * 

FORTRAN Source Program 


/* 

//GO.FTOlFOOl DD SYS0UT=A 

//G0.FT03F001 DD SYS0UT=A 

//G0.FT08F001 DD SYSOUT=A 

//G0.FT09F001 DD SYSOUT=A 

//G0.FT15F001 DD UNIT=SYSDA,DISP=(NEW, DELETE) ,SPACE=(440,(200)) , 

// DCB= ( RECFM=VS,BLKSIZE=440 , LRECL=436) 

//GO . FT1 6F001 DD UNIT=SYSDA ,DISP= ( NEW, DELETE) ,SPACE= (440 , (200) ) , 
// DCB=(RECFM=VS,BLKSIZE=440,LRECL=436) 

//G0.FT19F001 DD * 

Reaction Rate Data 


/* 

//G0.FT20F001 DD * 

Shock Shape Data 

/* 

//GO.SYSIN DD * 


Unit 5 Input Data 

/* 

// 
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Reaction Rate Input Data for all Sample Cases 

The same reaction rate data are used for all 
of the sample cases. 
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Body Geometry Input D ata for the 140B Orbiter Sample Cases 


0.0 

2.9220396-06 
6.723169E-06 
1.2222906-05 
1.9531496-05 
2.876460E-05 
4.004329E-05 
5.349469E-05 
6.925169E-05 
8 *7453596-05 
1 • 1684706-04 
1 • 50530QE-Q4 
1 •873590E-04 
2.2750706-04 
2. 7115186-04 
3.184839E-04 
3.696S78E-04 
4.250000E-04 
4 • 846030E-Q4 
5.487299E-04 
6 • 176129E-04 
6,9 14949E-04 
7 • 7G6280E-G4 
8 *646 848E-Q4 
9.681918E-04 
1.Q78G80E-Q3 
1 • 194660E-03 
1 .31824QE-Q3 
1.44914GE-03 
l • 58772GE-03 
1 * 734330E-G3 

1 .889340E-03 
2*053 13GE-03 
2.229920E-03 

2 • 4280806-03 
2.636620E-03 

2 • 856000E-03 
3.086700E-03 
3.329190E-03 

3 * 583980E-Q3 
3*85161 CE-03 
4.132599E-03 
4.435159E-03 
4 .7627096-03 
5. 105790E-03 
5 • 46 5C49E-Q3 
5,841 14QE-Q3 

6 ,2347396-03 
6 . 646 547E-03 

7 ,C77307E-03 
7,54283 7E-03 

8 *034 1 7CE-03 
8 • 547239E-03 
9 ,082 880E-03 
9,64 196 8E— 03 
1 *0225406-02 
1*0834106-02 

1 • 148 91QE—02 
1.217370E-0 2 
1 • 288700E-02 
1 • 363C00E-D2 
1.440400E-02 
1.52 ICC0E-02 
1 , 606600E-02 
1*696 3 50E-02 
1.789720E-02 
1.886830E-02 
1.987820E-02 

2 *0928606-02 
2 *2045206—02 
2*3205306-02 
2.44105CE-02 
2.566230E-02 
2 .6962206-02 
2 *8330806-02 


0*0 

2 • 4185706—03 
3 *6694306 — C3 
4.948780E-03 
6*2572296-03 
7 • 595357E-C3 
8.963808E-03 
1*0363206—02 
i • 179420E— 02 
1*3257306-02 
1*4738506-02 
1.625050E-02 
l*779640E-02 
1.937670E-C2 
2 . Q99220E— 02 
2.2643706-02 
2* 4331 70E-02 

2 *6057 10E-02 
2.782050E-02 
2*9622806-02 

3 • 146470E— 02 
3*3346906-02 
3 • 527030E— 02 
3*72 1940E-02 
3*92 0490E— 02 
4. 12 3340E-C2 
4*3305906-02 
4.542310E— 0 2 
4 • 758590E-02 
4 • 97 9510E-02 
5.2051606-02 
5. 435640E-02 
5.671030E— 02 
5 • 910760E-02 
6 • 153550E-02 
6.4C1455E-C2 

6 *6545 96E — 02 
6 • 91 3060E-02 

7 * 176936E-02 
7.446319E-02 
7.721329E-02 
8 , 002067E— 02 

8 • 287299E— 02 
8 • 576638E— 02 
8 . 871937E-02 
9.173298E-02 
9 . 480846E-C2 
9.7946586-02 
1*01 1490E-OI 
1.0441 60 E-OL 
1.077240E-C1 
1*1108906-01 
1. 1452206-01 
1* 180249E-01 
1.215970E-01 
1 . 25 24 10E-C1 
1.289570E-01 
1 • 327 1 30E-C l 
1 .365390E-01 
1 . 40 4409E — 01 
1.444200E-01 
1.48 47 70E — 0 1 
1 • 526 130E— 01 
1 • 568G20E-01 
1.610600E-CI 
1.654000E-01 
1 .6982 50E-G 1 
1.743349E-01 
1* 789320F— Cl 
1 • 835 750E- 01 
1.88 3060E-01 
1.931280E-C1 
1 • 9804206-01 
2.030489E-01 
2,0811 9QE-01 


0.0 

2,4185706-03 
3.6694306-03 
4.9487996-03 
6 *25725 8E— 03 
7.5954276-03 
8. 9639286-03 
1.036340E-02 
1*1794406-02 
1 *3257706-02 
1.4739206-02 
1*6251606-02 
1.7797906-02 
1.9378706-02 

2 •099480E X “02 
2.264690E-02 
2 .4335706-02 
2.606200E-02 
2.782640E-02 
2.562990E-02 

3 *1473006—02 
3.335670E-02 

3 *5 281 70E— 02 
3 • 7233 10E— 02 
3.922130E-02 
4.1 25280E—02 
4.3328606-02 
4*5449306—02 
4.761610E-02 

4 *9829 606—02 
5.2C9090E-02 
5.440090E-02 
5 .6760506—02 
5.9 16430E-02 
6.1 6C030E-02 
6. 4088176-02 
6.662905E-02 
6.522400E-02 
7 .1 87378E-02 
7 .4579786-02 
7.7342876-02 
8.016419E-02 
8 . 3C3237E -02 

8 *5944296—02 
8.8917 20E-02 

9 • 1 95209E— 02 
9.505045E-02 
9.8213376-02 
1.014420E-01 
1 .047380E-01 
1 *0807796-01 
1.1147906-01 
1 . 149499E-01 
1.1 84930E-01 
1 .22 1090E— 01 
1 . 25798 9E-01 
1 .2 95649E-01 
1.333770E-01 
1 • 372640E-01 
1 .4123096-01 
1.452790E-01 
1 .4940906—01 
1 .5362 3QE-0 1 
1 .578979E— 01 
1.622500E-01 
1 .666890E-01 
1.712199E-01 
1 .7584206-01 
1 * 8C5570E— 01 
i. 8533 19E-0 1 
1 .902030E-01 
1 .9517 3GE-01 
2 .0024396-0 1 
2.054180E-01 
2.1066906-01 


1* OOOOOOE 00 
9. 973460E— 01 
9.9596806-01 
9. 945550E-01 
9.93 1059E-01 
9. 91 6199E— 01 
9.900970E-01 
9* 885350E-01 
9. 869339E— 01 
9. 8529206-01 
1. 013370E 00 
1.011570E 00 
1 • 009729E 00 
1.0078506 00 
1 • G05910E 00 
1.003929E 00 
1.001900E 00 
9.998159E-01 
9. 9768206-01 
9.954939E-01 
9, 932520E— 0 1 
9. 909550E-01 
9 .8860206-01 
1.014429E 00 
1.011849E 00 
1.009219E 00 
1 * 006510E 00 
1.00 3750E 00 
1. 000910E 00 
9.9801 10E-01 
9. 9503906-01 
9.91 9960E-0 1 
9.8888006-01 
1.012190E 00 
1 • 008789E 00 
1 • 0Q5309E 00 
1.001750E 00 
9. 98 10 10E— 0 1 
9 • 9437 1 0E-01 
9. 905550E-01 
9 • 866530E-01 
9 • 826620E-0 1 
1* 003059E 00 
9.98715QE-01 
9 . 942740E-0 l 
9. 897360E— 01 
9.8509906-01 
9.8036206-01 
9. 755239E-0 1 
9 .7058406-01 
9. 877980E— 01 
9. 824430E-0 1 
9.769790E-01 
9. 714040E-0 1 
9 .6571806-01 
9. 599200E-01 
9.5401006-01 
9. 679510E-0 1 
9.615780E-01 
9* 550860F-01 
9. 4847 70F-0 i 
9 • 41 7490E-0 I 
9. 34 9020E-0 1 
9 .456690 F-0 1 
9. 383290E-0 1 
9 • 30867QE-0 1 
9. 232849E-0 1 
9 • 155830E-01 
9. 234329E-0 1 
9. 152240E-0 1 
9. 068960E-0 1 
8. 984480E-0 1 
8.89884CE-01 
8. 81 2050E-01 
8.857329E-01 


1 .5 70800E 00 
1 • 569590E 00 
1 .5677606 00 
1 *5665006 00 
1 *565209E 00 
1.5639006 00 
1*5625506 00 
1 *561 179E 00 
1* 559790E 00 
1.558359E 00 
1*5509496 00 
1 *5485196 00 
1.546980E 00 
1.5454006 00 
1.543790E 00 
1.542L39E 00 
1.540469E 00 
1 * 538759E 00 
1 • 537 009 E 00 
1 • 535230E 00 
1.5334206 00 
1.531560E 00 
1.529679E 00 
1 *5225796 00 
1 • 5187096 00 
1.516680E 00 
1 *5146096 00 
1 « 512489E 00 
1 .5 10340E 00 
1*508 149E 00 
1 *5059196 00 
1.503639E 00 
1.501329E 00 
1 *4971806 00 
1.489360E 00 
1 • 486879E 00 
1.484349E 00 
1.481779E 00 
1 .479159E 00 
1 . 4 76500E 00 
1.473789E 00 
1 *4710296 00 
1.465110E 00 
l • 458070E 00 
1 . 455130E 00 
1 *4521496 00 
1.449109F 00 
1 • 446030 E 00 
1 *4429006 00 
1.439710E 00 
1.430960E 00 
1 .4258306 00 
1 • 422460E 00 
1.419029E 00 
1.415549E CO 
1 • 412029E 00 
1 • 408449E 00 
1.3981C9E CO 
1.3 93769E 00 
1*3 89990E 00 
1 • 386169E 00 
1 • 382 29 OE 00 
1 • 378360E 00 
1.36920CE 00 
1 • 363G50E 00 
1 . 358919E 00 
1 . 3 54750E 00 
1.3 50519E 00 
1.346149E 00 
1 * 334749E 00 
1.330339E 00 
1 • 32587CE 00 
1.3213606 00 
1.316810E CO 
1.3071596 00 
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2.975870E-02 
3 • 124040E-02 
3 .277780E-02 
3.437260E-02 
3.604730E-02 
3.77905QE-02 

3 *959 7606-02 
4.147070E-02 

4 • 341410E— 02 
4.545380E-02 
4.756670E-02 
4.975510E-02 
5.202140E-02 
5.274590E-02 
5.478100E-02 
5.689330E-02 
5 • 908 550E— 02 
6 • 158730E-02 
6.374609E-02 
6 .598818E— 02 
6 « 83 1628E— 02 
7.147789E-02 
7 • 403809E-02 
7.669437E-02 
7.940406E-02 

8 • 2323 19E— 02 
8.534908E-02 
8.8405O6E-O2 

9 • 1 73477E-02 
9.510165E-02 
9.8 5894 8E-02 
1.022020E-01 
1.0 59430E— 0 1 
1.098160E-01 
1 • 138260E— 0 1 
1.17976CE-01 
1.222720E-01 
1.267 170E-01 
1.313159E-01 
1.360739E-01 
1 .409950E-01 
1 .460840E-01 
1 • 513470E- 01 
1.567880E-01 
1 .624129E-G1 
1 • 68 4440E— 01 
1 .745920E-01 

1 .809440E-01 
1.97 5C49E-0 1 
1.942829E-01 
2.0 1 2820E-0 1 
2.C85100E-01 

2 • 1597 19E-01 
2 .236770E-01 
2 . 3 16300E- 0 1 
2 .398390E-01 
2.483110E-01 
2.57C540E-01 
2 . 660750E-01 

2 • 74373GE-01 
2.841840E-01 
2 • 943020E- 0 1 
3.047349E-01 
3.1 54939E— 0 1 

3 • 26 5 8 59E-01 
3 .3802106-01 
3 .49 8C90E-0 1 
3.619580E-01 
3 . 7448 10E— 01 
3.875329E — 91 
4.009970E-01 
4 . 148670 E-0 1 
4.291570E-01 
4.438 760E-0 1 
4 • 590369E-0 1 


2. 132730E— 01 
2. 18 5240E-01 
2 . 238740E-01 
2.293240E-01 
2.348419E-01 
2.404510E— 01 
2.46 1660E— 01 
2. 519870E— 01 
2.579130E-01 
2.639050E— 01 
2.700080E— 01 
2.762250E-01 
2.825560E-01 
2.918150E-01 
2 • 99065 9E— 01 
3.064530E— 01 
3 • 139780E— 01 
3.212489E-01 
3.294050E-C1 
3.377140E-01 
3.46 1780E— 01 
3.535120E-01 
3 .622070E— 01 
3.710639E— 01 
3 .801650E— 01 
3 • 892490E-01 
3.985000E-01 
4.079240E-C1 
4.175220E-01 
4 . 272970E— 01 
4.372530E-01 
4.4739406-01 
4.577219E-01 
4.682400E— 01 
4.789529E-01 
4.898630E-01 
5.0097506-01 
5 . 1229206—01 
5.23 8 169E— 01 
5.35 5549E-0 1 
5 .475 100E-01 
5.596850E-C1 
5.720840E-01 
5 • 847 1 20E— 0 l 
5.975730E-01 
6 • 1029 706—01 
6.233950E-C1 
6.367350E-01 
6.503209E-01 
6.64 1 560E -01 
6. 7824606-01 
6.92 59 70E— 0 1 
7.0721 10E-01 
7.220960E— 01 
7 • 372560E— 0 1 
7.5269 50E-01 
7 .6842 1 OE— 01 
7.844369E-01 
8.007510E-01 
8 • 1911 50E-01 
8 • 3567 80E — 0 1 
8. 525470E— Cl 
8.697300E— 01 
8.872310E— 01 
9.050580E-01 
9.2321 70E— 01 
9.41 7140E— 01 
9 • 605570E— 01 
9.797519E— 01 
9.990500E-01 
1.018680E 00 
1.038690E 00 
1.059070E CO 
1 • 079829E 00 
1 • 1 0098 OE 00 


2.160169E-01 
2.214730E— 01 
2 .2 703 9 OE— 01 

2 .3 271B0E— 01 
2 .384850E— 01 
2.443590E— 01 
2.503520E-01 
2.564670E— 01 
2 .627040E— 01 
2.690340E-01 
2. 754920E— 01 
2.820820E-01 
2.888070E— 01 
2.980940E-01 
3.056250E-0L 
3.133079E— 01 
3.21 1460E— 01 
3.288360E-01 
3.372729E-01 
3.458790E-01 
3.546570E-01 
3.626429E— 01 
3.717080E-01 
3.8C9550E-01 
3 .904510E— 01 
3.999910E— 01 
4.097250E-01 
4.196570E-01 
4.257900E-01 
4 .40 1290E— 0 1 
4 .506789E— 01 
4.614429E— 01 
4.724280E-01 
4.836370E-01 
4.95C750E-01 
5 .0674906-01 
5.1 86620E— 0 1 
5.308200F-01 
5.432290E-01 
5 • 5 58950F-0 1 
5.688230E— 01 
5 • 820 180E-0 1 
5.954880E-01 
6 • Q 92390E-0 1 
6.232760E-01 

6.3 7 3560E-01 
6.5 1 8260E-0 1 
6.666C09E— 01 
6.816880E-01 
6.970950F— 01 
7 • 1 28280E-0 1 
7.2 88949E-0 1 
7 .4530496 -0 1 
7.620650F-01 
7 • 79 1840E— 01 
7.966710F-01 
8.1 45330E-01 
8.3278 10E— 0 1 
8.5 14220E— 0 1 
8.715740E-01 
8.9082506-01 
9. IG4960E-01 
9 • 305980E-01 
9.5114206-01 
9.721380F-01 
9.935970E-01 
1.0155306 00 
1.037950E 00 
1.060869E 00 
1.0841696 00 
1 • 1G7969E 00 
1.132319E 00 
1 • 157200E 00 
1.182659E 00 
1.208679E 00 


8.765520E— 01 
8.672619E-01 
8.578629E— 01 
8. 483599E— 0 1 
8.500270E— 01 
8 • 40 0480 E— 01 
8. 299720E— 01 
8. 198040E— 01 
8.191280E— 01 
8. 085200E— 01 
7.978320E-01 
7.8707 00E-01 
7. 76 2 3 80 E— 01 
6. 544350E— 01 
6. 4644 00 E- 01 
6.383880E— 01 
6.302820E-01 
5.71 11 00E-01 
5.640219E—01 
5. 568939E— 01 
5.497280E-01 
5. 528400E-01 
5.453650E— 01 
5.378600E-01 
5.421460E-01 
5.342979E-01 
5.264300E-01 
5. 185460E— 01 
5. 1 06490E-0 1 
5. 02 7420E-0 1 
4. 948300E-01 
4.869159E-01 
4. 790030E-0 1 
4. 710950E-01 
4.631950E-01 
4.553080E-01 
4.474360E-0 1 
4. 395840E-0 1 
4.317549E-01 
4. 239520E-01 
4.16 1800E-01 
4. 084400E-0 1 
4.007379E-01 
3. 930759E-01 
3.854570E-01 
3. 872679E-01 
3. 793640E-0 1 
3.71 5 190E-0 1 
3. 637379E-C 1 
3.56 0230E-01 
3. 483770F-01 
3.40 8030E-0 1 
3. 333049E-01 
3.25 88 40E-C 1 
3. 185440E-01 
3.11 2860E-0 1 
3. 04 1 130E-0 1 
2. 9702 79E-0 1 
2.900330E-01 
2. 890390E-01 
2.81 8840E-0 1 
2. 748350E-01 
2.6789306-01 
2.610590E-01 
2. 5433 50E-0 1 
2.477220E-0 1 
2.41 22 10E-G 1 
2. 348329E— 01 
2. 28 5579E — 01 
2 • 2400 19E-0 1 
2.178020E-01 
2.11 7220E-01 
2 • 057640E— 01 
1.999280E-01 
1 • 942120E-01 


1.300489E 00 
1 . 295759E 00 
1.290979E 00 
1.286160E 00 
1.2760996 00 
1 • 2695C0E 00 
1 • 264520E 00 
1.259489E 00 
1 • 253920E 00 
1.242680E 00 
1.237510E 00 
1 .2323096 00 
1.227070E 00 
1.492709E 00 
1.297179E 00 
1 • 292259E . 00 
1.2 8731 OE 00 
1.239440E 00 
1.312030E 00 
1 • 307230E 00 
1.302389E 00 
1 • 163759E 00 
1.284439E 00 
1.279440E 00 
1.281420E 00 
1.259850E 00 
1.2 54700E 00 
1.249530E 00 
1.244329E 00 
1.239100E 00 
1 • 233850E 00 
1.228580E 00 
1.223280E 00 
1.2 17970E 00 
1.212629E 00 
1 . 207279E 00 
1 • 201909E 00 
1.196529E 00 
1.191130E 00 
1.185710E 00 
1 • 1 80289E 00 
1.1 74850E 00 
1 • 16941 OE 00 
1.1639606 00 
1.158489E 00 
1.1281806 00 
1.131940E 00 
1*1 26400E 00 
1.123850E 00 
1.1 15299E 00 
1.1 09759E 00 
1.1 0421 9E 00 
1.0986896 00 
1.0931606 00 
1.0876406 00 
1.082129E 00 
1 • 076630E 00 
1.071139E 00 
1.065660E 00 
1.1 4641 OE 00 
1.0360196 00 
1.030530E 00 
1 * 025069E 00 
1.0196296 00 
1.0141996 00 
1 • 008809E 00 
1 .0034296 00 
9 .9808206-0 i 
9.927590E-0 1 
9. 761310E— 01 
9.697 180E-0 1 
9.644750E-01 
9 • 592640E— 0 1 
9 • 540 850E-01 
9*4894006-01 
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4.746520E-01 
4. 9073206-01 
5.072920E-01 
5 • 24343QE-01 
5.418990E-01 
5 • 599740E-0 1 
5.785810E-01 
5. 9773506-01 

6 • 1745206-01 
6 • 3827 1 0E-01 
6.59366GE-01 
6 .8107306-0 1 

7 .034079E— 01 
7 • 2638906-01 
7 • 5003 19E— 01 
7 . 743559E-01 
7.993780E-01 
8.251160E-01 
8*51 5910E-01 
8 .788210E-0 1 
9 • C7080QE-0 l 
9*36 12405— 0 1 
9.659890E-01 
9 • 966969E— 0 1 
1.028270E 00 
1 *06C730E 00 
I.C94100E 00 
1.128409E 00 
1.16367GE 00 
1.199929E 00 
1.237189E 00 
1 *2754796 00 
1.314850E 00 
1.3553006 00 
1 • 396870E 00 
1*44 0499E 00 
1.484759E 00 
1 * 530239E 00 
l « 576969E 00 
1 .624980E 00 
1.6742995 00 
1.724970E 00 

1 • 777C20E 00 
1.830489E 00 
1*88 5420E 00 
1.94 1830E 00 
l *9997696 00 
2*06 1090E 00 
2.122649E 00 
2.185869E 00 
2.250790E 00 

2 • 3 17450E 00 
2 • 385900E 00 
2.4561Q9E 00 
2.528359E 00 
2.603330E 00 
2.68007CE 00 
2.7588605 00 
2*8397405 00 
2.922759E 00 

3 *0079905 00 
3.095469E 00 

3 * 1 85269E 00 
3.278589E 00 
3 * 373879E 00 
3.471680E 00 
3.572049E 00 
3.675050E 00 
3 # 780749E 00 
3.889640E 00 
4.001550E 00 
4*1 16380E 00 
4.234230E 00 
4*355 100E 00 

4 *4793096 00 


1.1225305 

00 

1 « 144489E 

00 

1 • 166869E 

00 

1.189670E 

GO 

1.212910E 

00 

1 • 236589E 

CO 

1.2607195 

00 

1.2853105 

oc 

1 • 310369E 

00 

1.334999E 

00 

1.360680E 

CO 

1.386840E 

00 

1.413520E 

00 

1.44C709E 

CO 

1.468419E 

00 

1.4966795 

00 

I. 5254795 

00 

1.55405OE 

CO 

1.5847895 

CO 

1.615319E 

00 

1 • 646009E 

00 

1.6773295 

00 

1.709270E 

00 

1.7418305 

00 

1 • 775049E 

00 

1.8C8920E 

00 

1 • 843470E 

00 

1.878710E 

00 

1.914660E 

00 

1.951320E 

00 

1.988720E 

00 

2.026870E 

00 

2.06 5QC0E 

00 

2. 105510E 

00 

2.146020E 

00 

2. 185789E 

00 

2 • 227340E 

CO 

2.2697396 

00 

2 • 313000E 

00 

2. 3571 49 E 

00 

2 .4022095 

00 

2.4481995 

00 

2. 495139E 

00 

2.543059E 

00 

2 • 591960E 

00 

2.641890E 

00 

2.692849E 

00 

2.741770E 

00 

2.7941295 

00 

2. Q47600E 

CO 

2.902189E 

00 

2.9579395 

00 

3 • 014870E 

CO 

3.073000E 

00 

3 • 132370E 

00 

3.191520E 

00 

3. 2523 10E 

00 

3.314400E 

00 

3.377830E 

00 

3.442639E 

00 

3 .5088436 

00 

3. 576480E 

00 

3.645590E 

00 

3.714230E 

00 

3.785199E 

00 

3 • 857730E 

00 

3.931849E 

CO 

4.007609E 

00 

4.085050E 

00 

4.163489E 

00 

4.243360E 

00 

4 .3250296 

00 

4.408520E 

00 

4 • 493879E 

00 

4.5808706 

00 


1.235299E 

00 

1 • 262509E 

00 

1.2903505 

00 

1.3 18820E 

00 

1.3479505 

00 

1.377729E 

00 

1.4C8210E 

00 

1.4393805 

00 

1.471270E 

00 

1.5C3519E 

00 

i . 536750E 

00 

1.5707405 

00 

1.605530E 

00 

1.641129E 

00 

1.677569E 

00 

1.7 14849E 

00 

1.752999E 

00 

1.792049E 

00 

1 .8320205 

00 

1 • 87293GE 

00 

1.914650E 

00 

1.957359E 

00 

2 . C01080E 

CO 

2.0459505 

00 

2 . 091669E 

00 

2.1385905 

00 

2*1 86629E 

00 

2.2358095 

00 

2*2861605 

00 

2.337720E 

00 

2,3905105 

00 

2.4445705 

00 

2.499929E 

00 

2.556620E 

00 

2 *6 14659E 

00 

2.673699E 

00 

2 ,734409E 

00 

2.7965905 

00 

2 • 86C270E 

00 

2.9254895 

00 

2.9922995 

00 

3.060730E 

00 

3.130819E 

00 

3.2026095 

00 

3.276159E 

00 

3.351489E 

00 

3.4286595 

00 

3. 5 C 709 05 

00 

3.5879105 

00 

3.6706995 

00 

3.755529E 

00 

3.842429E 

00 

3.93 1459E 

00 

4.022679E 

00 

4.1161305 

00 

4.2116195 

00 

4.309520E 

00 

4.4C9840E 

00 

4.5 12620E 

00 

4.6 17940E 

00 

4.725860E 

00 

4. 836450E 

00 

4.949759E 

00 

5.065599E 

00 

5.184420E 

00 

5 • 306170E 

00 

5.430949E 

00 

5 .5 58809E 

00 

5.689850E 

00 

5.824039E 

00 

5.961539E 

00 

6 • 102440E 

00 

6.246849E 

00 

6.394839E 

00 

6.546479 6 

00 


1 • 8861 79E— 01 
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0.0 

1 • 166000 E — 01 

0.0 

1 • 166000 E — 01 

0.0 

1 • 166000 E — 01 

0.0 

1 • 166000 E — 01 

0.0 

1 • 166000 E — 01 

0.0 

1 . 166000 E -01 

0.0 

1 . 1660006—01 

0.0 

1 . 166000 E — 01 

0.0 

1 • 166000 E — 01 

0.0 

1 . 166000 E — 01 

c.o 

1 . 166000 E -01 

0.0 

1 . 1660006-01 

0.0 

1 . 166000 E — 01 

9.0 

1 . 1660006-01 

0.0 

1 . 1660006-01 

0.0 

1 . 166000 E — 01 

0*0 

1 . 166000 E — 01 

0.0 

1 • 166000 E — 01 

0.0 

1 . 1660006-01 

0.0 

1 • 166000 E — 01 

0.0 

1 . 1660006-01 

0.0 

1 . 166000 E -01 

0.0 

1 . 166000 E — 01 

0.0 

1 . 166000 E — 01 

0.0 

1 . 1660006-01 

0.0 

1 . 1660006-01 

0.0 

1 . 1660006-01 

0.0 

1 • 166000 E — 0 L 

0.0 

1 . 166000 E -01 

0.0 

1 . 166000 E -01 

0.0 

1 . 1660006-01 

0.0 

1 . 1660006-01 

0.0 

1 . 1660006-01 

0.0 

1 . 166000 E -01 

0.0 

1 • 166000 E — 01 

0.0 

1 . 1660006-01 

0.0 

1 . 1660006-01 

0.0 

1 . 1660006-01 

0.0 

1 • 166000 E — 01 

0.0 

1 . L 66000 E — 0 1 

0.0 

1 . 166000 E -01 

0.0 

1 . 1660006-01 

0.0 

1 . 166000 E -01 

0.0 

1 . 1660006-01 

0.0 

1 . 1 66000 E — 0 1 

0.0 

1 . 1660006-01 

0.0 

1 . 166000 E — 01 

0.0 

1 . 1660006-01 

0.0 

1 . 166000 F -01 

0.0 

L . 1660006-01 

0.0 

1 . 166000 E -01 

0.0 

1 . 1 66000 E -01 

0.0 

1 • 1660 Q 0 E -01 

0.0 

1 . 1 66000 E — 01 

0.0 

1 . 166000 E -01 

0.0 

1 . 166000 E -01 

0.0 

1 . 1660006-01 

0.0 

1 . 1660006-01 

0.0 

1 . 166000 E -01 

0.0 

1 . 166000 E -01 

0.0 

1 . 1660006-01 

0.0 

1 . 1660006-01 

0.0 

1 . 1660006-01 

0.0 

1 • 166000 E -01 

0.0 

1 . 1660006-01 

0.0 

1 . 166000 E -01 

0.0 

1 . 166000 E -01 

0.0 

1 • 166000 E — 0 1 

0.0 

1 . 166000 E -01 

0.0 

1 . 166000 E — 01 

0.0 

1 . 1660006-01 

0.0 

1 . 1660006-01 

0.0 

1 • 166000 E — 01 

0.0 

1 . 1660006-01 

0.0 

1 • 166000 E — 01 
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1.235299E 

00 

0.0 

1 • 1 66000E— 0 l 

1.262509E 

00 

0.0 

1 . 166000E-0 1 

1.290350E 

00 

0.0 

1.166000E-01 

1.318820E 

00 

0.0 

1 • 1660Q0E-01 

1 • 347950E 

00 

0.0 

1.1 66000E-01 

1 • 377729E 

00 

0.0 

1.166000E-01 

1.408210E 

00 

0.0 

1 • 166000E-01 

1 .439380E 

00 

0.0 

1.16600CE-01 

1.47127QE 

00 

0.0 

1.166000E-01 

1.503519E 

00 

0.0 

1.166000E-01 

1.53675CE 

00 

0.0 

1.166000E-01 

1 * 57074CE 

00 

0.0 

1 • 1660006—01 

i .6Q553GE 

00 

0.0 

1 • 166000E— 01 

1.641129E 

00 

c.o 

1 . 166000E— 01 

1.677569E 

00 

0.0 

1 .166000E-01 

1.714849E 

00 

0.0 

1 • 166000E— 01 

1 • 752999E 

00 

0.0 

1 • 166000E— 01 

i • 792049E 

00 

0.0 

l • 166000E— 01 

1.832020E 

00 

0.0 

1.1660G0E-01 

1 .872930E 

00 

c.o 

1.1 66000E-0 1 

1*91 46506 

00 

0.0 

1.1 66000E-01 

l *95 7 359E 

oc 

0.0 

1.1660Q0E-01 

2.001080E 

00 

c.o 

1 .1660C0E-01 

2 • C45850E 

00 

c.o 

1.166000E-01 

2.091669E 

00 

0.0 

1.1 66000E-01 

2.13859CE 

00 

0.0 

1.166000E-01 

2 . L86629E 

00 

0.0 

1.166000E— 01 

2.235809E 

00 

0.0 

1 • 166000E— 0 1 

2 • 286 16CE 

00 

0.0 

1 . 1660QQE-01 

2.337720E 

00 

0.0 

1 • 166000E— 01 

2 . 39051 OE 

00 

0.0 

1. 1660008-01 

2.44457CE 

00 

0.0 

1.166000E-01 

2.499929E 

00 

0.0 

1.1 66000E—01 

2.556620E 

00 

c.o 

l . 1660006—01 

2.614E59E 

00 

0.0 

1 * 166000E-01 

2.673699E 

00 

0.0 

1.1 66000E— 0 1 

2 • 734409E 

00 

0.0 

1 • 166000E— 0 1 

2 .796 590E 

00 

0.0 

1 .166000E— 01 

2.86027CE 

00 

c.o 

1. 1 66000E-01 

2.925489E 

00 

0.0 

1. 1660008-01 

2.992299E 

00 

0.0 

1 . 166000E— 01 

3.060730E 

00 

0.0 

1 • 166000E— 0 1 

3.130819E 

00 

0.0 

l .166000E— 01 

3.202609E 

00 

0.0 

1 • 166000E-01 

3 • 27 6 1 59E 

00 

0.0 

1 • 16 6000E-0 1 

3 • 351489E 

00 

0.0 

1 • 166000E— 01 

3 • 42 8659E 

00 

0.0 

1 * 166000E-01 

3 • 50709 OE 

00 

0.0 

i • 166000E— 01 

3 . 587910E 

00 

0.0 

1 « 166000E— 0 1 

3.670699E 

00 

0.0 

1 . 166000E— 01 

3.755529E 

00 

0.0 

1 • 1 66000E— 0 l 

3 • 842429E 

00 

0.0 

1.166000E-01 

3.931459E 

00 

0.0 

1 • 1 66000E-01 

4.02 2 679E 

00 

c.o 

1 . 166000E— 0 1 

4.116130E 

00 

0.0 

1 • 166000E-01 

4.2116I9E 

00 

0.0 

1 • 166000E— 01 

4 • 309520E 

00 

0.0 

1.1660006-01 

4.409840E 

00 

0.0 

1 • 166000E— 0 1 

4*51 2620E 

00 

c.o 

1 • 166000E-01 

4 *61 7949E 

00 

0.0 

i .166000E-01 

4* 725860E 

00 

0.0 

1 * 166000E— 0 1 

4 • 836450E 

00 

0.0 

1 • 166000E— 01 

4.949759E 

00 

0.0 

1.1 66000E— 0 1 

5.065599E 

00 

0.0 

1 . 166000E— 0 1 

5 • 184420E 

00 

0.0 

1 • 166000E— 01 

5.306170E 

00 

0.0 

1 . 166000E— 01 

5.430949E 

00 

0.0 

1.1660008-01 

5.558809E 

00 

0.0 

1 .166000E— 01 

5 .689850E 

00 

0.0 

1 • 166000E— 01 

5.824039E 

00 

0.0 

1 • 166000E-01 

5.9615396 

00 

0.0 

1. 1660008-01 

6 • 102440E 

00 

0.0 

1 • 166Q00E-01 

6.246E49E 

00 

0.0 

l • 1 66000E— 0 1 

6 • 394839E 

00 

c.o 

1 • 166000E-01 

6.546479E 

00 

0.0 

1.1 66000E— 0 1 
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6.701839E 

00 

0.0 

1 • 1 66000E-01 

6.86105CE 

00 

0.0 

1.166000E-01 

7.024240E 

00 

0.0 

1.1 660006-0 1 

7.191480E 

00 

0.0 

1 • 1 66000E-0 1 

7.362760E 

00 

0.0 

1.1 66000E -0 1 

7 .53 83 606 

oc 

0.0 

1.166000E-01 

7 • 7182 6GE 

00 

0.0 

l • 1 66000E— 0 1 

7.902630E 

00 

0.0 

1.166000E-01 

S.091559E 

00 

0.0 

1 • 166000E— 0 l 

8 • 285 170E 

00 

c.o 

1.166000E-01 

8 • 48358 9E 

00 

0.0 

1.1 66000E— 0 1 

8.686939E 

00 

0.0 

1.1 66000E-0 1 

8.895350E 

00 

0.0 

1.166000E-01 

9.1G8939E 

00 

0.0 

1 • 166000E— 0 1 

9 ■ 327860E 

00 

0.0 

1 • 1 66000E— 0 1 

9.552219E 

00 

0.0 

1.166000E— 01 

9.782169E 

00 

c.o 

1. 166000E-01 

1.00L790E 

01 

0.0 

1.166000E-Q1 

1 • 02594QE 

01 

0.0 

1 • 1 66000E— 0 1 

1.050700E 

01 

0.0 

1 • 166000E— 0 1 

1.076080E 

01 

0.0 

1 .16600CE-01 

1.102100E 

01 

0.0 

1 • 1 66000E-0 l 

1.128760E 

01 

0.0 

1 • 1 66000F-0 1 

1 • 1 56C90E 

01 

0.0 

1 • 1 66000E-0 1 

ui84iooE 

01 

0.0 

1 . 166Q00E-G 1 

1.212820E 

01 

0.0 

1.1 66000E— 0 1 

1 . 242250E 

01 

0.0 

1 • 1 66000E-0 1 

1.272410E 

01 

0.0 

1.1 66000E-0 1 

1.303330E 

01 

c.o 

1.166000E-01 

1.335C30E 

01 

0.0 

1.1 66000E— 0 1 

1 .367520E 

01 

0.0 

1 .1660006-01 

1 • 40C 8 10E 

01 

0.0 

1.1 6 6000E-0 1 

1 .434940 E 

01 

0.0 

1.1 66000F-0 1 

1 • 469930E 

01 

c.o 

1 ■ 1 66000E— 0 1 

1.505790E 

01 

0.0 

1.1 66000E-0 1 

1 • 54254 OE 

01 

0.0 

1.1 66000E— 0 1 

1 • 580220E 

01 

0.0 

i • 1 66000E— 0 1 

1 #6188296 

01 

0.0 

1.1 66000E— 0 1 

1.658420E 

01 

0.0 

1.1 66000E— 0 1 

1.698990E 

01 

0.0 

1.1 66000E-01 

1 .740569E 

01 

0.0 

1 .166000E-01 

1.783199E 

01 

0.0 

1 • 1660 OOE — 0 1 

1 • 82 68 89 E 

01 

0.0 

1 • 166000E-0 1 

1.871669E 

01 

0.0 

1.1 66000E— 0 1 

1.917569E 

01 

0.0 

1.166000E-01 

1.964619E 

01 

0.0 

1 .166000E-01 

2.012839E 

01 

0.0 

1.1 66000E— 0 1 

2 « 062279E 

01 

0.0 

l • 1 66000E-0 1 

2.112939E 

01 

0.0 

1.1 66000F-0 1 

2.164879E 

01 

0.0 

1.1 66000E-0 1 

2*21 8 109E 

01 

0.0 

1 .166000E-01 

2-272670E 

01 

0.0 

1.1 66000E -0 1 

2*328 60 OE 

01 

0.0 

1.1 66000E-0 1 

2.385919E 

01 

0.0 

1.166000E-01 

2.444679E 

01 

0.0 

1.1 66000E-01 

2.504909E 

01 

0.0 

1 .166000E-01 

2 • 566640E 

01 

0.0 

1 • 1 66000E— 01 

2.629919E 

01 

0.0 

1.1 66000E— 01 

2 * 694769E 

01 

0.0 

1 • 1 6600QE— 0 1 

2.761249E 

01 

0.0 

1 • 166000E-01 

2.8293906 

01 

0.0 

1 • 16600QE— 0 1 

2 * 899239E 

01 

0.0 

1.1660006-01 

2.970830E 

01 

0.0 

1.1 66000E— 0 1 

3 • 044209E 

01 

0.0 

1 ■ 1 66000E— 01 

3.119429E 

01 

0.0 

1 • 1 66000E— 0 1 

3.196519E 

01 

0.0 

1.1660006-01 

3.275549E 

01 

0.0 

1 • 166000E— 01 

3 * 356 540E 

01 

0.0 

1 • 1 66000E— 0 1 

3 • 439 569E 

01 

0.0 

1 . 166000E— 01 

3 • 524669E 

01 

0.0 

1 • 166000F— 0 1 

3.6118906 

01 

0.0 

1 .1 66000E— 0 1 

3.7012996 

01 

0.0 

l • 166000E— 01 

3.7929406 

01 

0.0 

1.1 66000E— 01 

3.8868706 

01 

0.0 

1.1 66000E— 01 

3.9831506 

01 

0.0 

1 • 166000E— 0 1* 


87 


Unit 5 Input Data for the HOB Qrbiter 
Binary-Gas Sample Case 


FREE FLIGHT 140B ORBITER ALT=245K FT. M=26.9 ALPHA=30, BINARY-GAS 
SINPUT 

ALT=245000.0, 

BRAD=2. 360833, 

DS=0 .2 , 

0SMAX=1 .0 , 

RINF=. 8672510280-07, 

SEN0=35.0, 

TB=246C.0, 

THINI=-1 • , 

T INF=361 .48, 

UINF=25100.0, 
oo XKETA=1.05, 

IEND=6, 

IGECM=3, 

KEND=1 » 

NAN=-2, 

NDATA=1, 

NS=2, 

NS I -2 , 

NTSH=20, 

SEND 


23456 

23456 


76544 

76544 



Unit 5 Input Data for the HOB Or biter 
7-Species Sample Case 


FREE FLIGHT 140B ORBITER ALT=245K FT. M=26.9 AIPHA=30, 7-SPECIES 
UNPUT 

ALT=245C00.0» 

BRAD=2. 360833, 

DS=0 .2 « 

DSMAX=1.0, 

RINF=. 86725102 8D-07, 

SEND=35.0, 

TB=2460.0, 

THINI=-1. , 

T INF=361 .48 * 

UINF=25100.0» 

XKETA=1.05, 

I END=6» 

IGECM=3, 

KEN0=1 » 

NAN=-2 » 

NDAT A=1 1 
NS=6* 

NSI=6, 

NTSH=20, 

SEND 

.23456 *76544 

.23456 *76544 



Shock Shape Input Data for the 
31° Hyperboloid Sample Cases 


0.0 

0.0 

1.I66000E-01 

2.943361E-02 

0.0 

1.166000E-01 

5.886861E-02 

0.0 

1.166000E-01 

8.83G637E-G2 

0.0 

1 • 166000E— 01 

I • 177483E— 01 

0.0 

1.166000E-01 

1.471957E-01 

0.0 

1.166000E-01 

1 .766500E-01 

0.0 

1.166000E-01 

2.061127E-01 

0.0 

1. 166000E— 01 

2.355852E-01 

c.o 

1.I66000E-01 

2.650688E-01 

0.0 

1 .1 660QGE— 01 

2.945648E-01 

0.0 

1.166000E-01 

3.240746E-01 

0.0 

1 *1 6600QE-G1 

3.535998E-01 

0.0 

1 • 1660Q0E— 01 

3.8314176-01 

0.0 

1.166000E-01 

4.127015E-01 

0.0 

1.166000E-01 

4.42281 IE-01 

0.0 

1* 16600QE-01 

4.718814E-01 

0.0 

1.166000E-01 

5.015042E-01 

0.0 

1 . l f 66000E— 01 

5.3U506E-01 

0.0 

1. 166000P-OI 

5 .6Q8222E— 01 

0.0 

1 .166000E— 01 

5.9052G4E-01 

0.0 

l • 166000E— 01 

6 • 20 2466E— 01 

c.o 

1 • 1 66000E— 01 

6 • 500025E-Q1 

0.0 

1.166000E-01 

6 • 79789 IE— 0 1 

0.0 

1 • 166Q00E-01 

7.096G82E-01 

0.0 

1.166000E-01 

7.394611E-01 

0.0 

1.166000E-01 

7 • 693492E-01 

0.0 

i • 166000E— 01 

7.992741E-01 

0.0 

1.166000E-01 

8.292373E-G1 

0.0 

1.166000E-01 

8 • 592403E-Q1 

0.0 

1 • 1660Q0E-01 

8.892844E-01 

0.0 

i • 166QQ0E— 01 

9 • 19 3712E-01 

0.0 

1.166000E-01 

9 .495G23E-01 

c.o 

1 • 166000E— 01 

9.796793E-01 

c.o 

1.1 66000E— 01 

l • 0G9903E 00 

c.o 

1 . 16 6000E— 0 1 

1.040175E 00 

0.0 

1.166000E-01 

1.07C499E 00 

0.0 

1 * 166000E— 01 

1 • 100875E 00 

c.o 

1.166000E-01 

1.131304E 00 

0.0 

1.166000E-01 

1.161786E 00 

0.0 

1 • 166000E-01 

1.192327E 00 

0.0 

1 • 1 66Q00E-Q 1 

1.222926E 00 

0.0 

1.166000E-01 

X • 253585E 00 

0.0 

1 • 166000E— 01 

1.284305E 00 

0.0 

1 • 166000E-01 

1.315C87E 00 

0.0 

1 • 1 66000E— 01 

1 • 345936E 00 

c.o 

1.16 6000E-0 1 

1 • 37685CE 00 

0.0 

1 .166000E-01 

l • 407832E OG 

0.0 

i . 1 66000E— 0 1 

1.438885E 00 

0.0 

1 . i 660G0E— 0 1 

I.470C09E 00 

c.o 

1.166000E-01 

1 # 50 1205E 00 

0.0 

1 • 166000E-01 

X.532476E 00 

0.0 

l . l 66000E— 0 1 

1 • 563826E 00 

c.o 

1.166000E-01 

1.595253E 00 

0.0 

1 • 166003E-01 

l • 626760E 00 

0.0 

1 . 166000F— 01 

1.658348E OC 

0.0 

1.16600CE-01 

1.69002 2E 00 

0.0 

1.166000F-01 

1.721781E 00 

0.0 

1.166000E-01 

1.753627E 00 

0.0 

1 • 1 66000E-01 

1 • 785562E 00 

0.0 

1 • 166000E-01 

1.817589E 00 

0.0 

L.166000E-01 

1.849709E 00 

0.0 

L . 166000E— 0 1 

1.831924E 00 

c.o 

1.166000E-01 

1.9I4235E 00 

0.0 

1 • 166000E-01 

1.946647E OC 

0.0 

1.166000E-01 

1.979158E QO 

0.0 

1 . 16600QE-01 

2.011773E 00 

0.0 

1.1 66000E— 0 1 

2.044494E 00 

0.0 

l • l 66000E-0 1 

2.077320E 00 

0.0 

1.1 6600QE-01 

2.L10257E 00 

0.0 

1 . 1 66000E-01 

2.143305E OC 

0.0 

1 • 16600GE-01 

2.176466E 00 

0.0 

1 # 1660008-01 

2 . 2C9742E 00 

c.o 

1.166000E-01 

2.243136E 00 

0.0 

1 . 1 66000E-0 l 

2.27665CE 00 

c.o 

1.166000E-01 
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2*31028 IE 

00 

0.0 

1.166000E-01 

2.344047E 

00 

0.0 

1.166000E-01 

2.377934E 

00 

0.0 

1.166000E-01 

2.411950E 

00 

0.0 

1.166000E-01 

2 .446098E 

00 

0.0 

1.166000E-01 

2.480379E 

00 

0.0 

1 • 166000E— 01 

2.514797E 

00 

0.0 

1 • 166000E— 01 

2.549354E 

00 

0.0 

1.166000E-01 

2.584050E 

00 

0.0 

1 .166000E— 01 

2.618892E 

00 

0.0 

1.166000E-01 

2.653878E 

00 

0.0 

1 %166000E— 01 

2 .689014E 

00 

0.0 

1.1 66000E— 01 

2.724301E 

00 

0.0 

1 .166000E— 01 

2 • 759743E 

00 

0.0 

1 . 166000E-01 

2.795340E 

00 

0.0 

1.166000E-01 

2 • 831097E 

00 

0.0 

1.166000E-01 

2.867016E 

00 

0.0 

1 %166000E—01 

2.903099E 

00 

0.0 

1.166000E-01 

2.939351E 

00 

0.0 

1 • 166000E— 01 

2.975775E 

00 

0.0 

1.166000E-01 

3.012370E 

00 

0.0 

1 • 166000E— 01 

3.049144E 

00 

0.0 

1 • 166000E-01 

3.086096E 

00 

0.0 

1 .166000E— 01 

3. 123231E 

00 

0.0 

1 • 166000E— 01 

3.160551E 

00 

0.0 

1 • 166000E— 01 

3.198C62E 

00 

0.0 

1 • 166000E— 01 

3 • 235 764E 

00 

0.0 

1.166000E-01 

3 .273661 E 

00 

0.0 

1 • 166000E— 01 

3.3117 56E 

00 

0.0 

1 • 166000E— 01 

3.350056E 

00 

0.0 

1 .1 66000E-01 

3.388559E 

00 

0.0 

1.166000E-01 

3.427273E 

00 

0.0 

1 • 1 66000E— 01 

3 • 466198E 

00 

0.0 

1.166000E-01 

3.505340E 

00 

0.0 

1 • 166000E— 01 

3 • 544702E 

00 

0.0 

1.166000E-01 

3. 584287E 

00 

0.0 

l %166000E— 01 

3.624100E 

00 

0.0 

1.166000E-01 

3.664144E 

00 

0.0 

1.1 66000E— 0 1 

3. 704423E 

00 

0.0 

1 %166000E— 01 

3 • 744941E 

00 

0.0 

1 .166000E-01 

3.7857036 

00 

0.0 

1 • 166000E— 01 

3.826712E 

00 

0.0 

1.166000E-01 

3 • 867971E 

00 

0.0 

1 • 166000E— 01 

3.909488E 

00 

0.0 

1 • 166000E— 01 

3.951264E 

00 

0.0 

1 .166000E-01 

3 • 99 3305 E 

00 

0.0 

1 . 16600QE— 0 1 

4.035616E 

00 

0.0 

1 • 166000E— 0 1 

4.078199E 

00 

0.0 

1 • 166000E— 0 1 

4.121C61E 

00 

0.0 

1.166000E-01 

4 .16420 7E 

00 

0.0 

1 • 166000E— 01 

4 • 20764 IE 

00 

0.0 

1 • 166000E— 01 

4.25 1368E 

00 

0.0 

1 • 166000E— 01 

4 • 29 5391 E 

00 

0.0 

1.166000E-01 

4.339720E 

oc 

0.0 

1 • 166000E— 01 

4 • 384356E 

00 

0.0 

1 .166000E— 01 

4 * 42 930 IE 

00 

0.0 

1 • 166000E— 01 

4.474577E 

00 

0.0 

1.166000E-01 

4.520170E 

00 

0.0 

1 • 166000E— 01 

4.566095E 

00 

0.0 

1 • 166000E— 01 

4.612356E 

00 

0.0 

1.166000E-01 

4.65896CE 

00 

0.0 

1 • 166000E— 0 1 

4.7C59I3E 

00 

0.0 

1 • 166000E— 01 

4.75321 9E 

00 

0.0 

1 • 166000E— 01 

4.80C885E 

00 

0.0 

1 • 166000E— 01 

4.848920E 

00 

0.0 

1.1 66000E— 01 

4.897327E 

00 

0.0 

U166000E-01 

4.946115E 

00 

0.0 

1 • 166000E— 01 

4.995291E 

00 

0.0 

l • 1 66000E — 01 

5.044860E 

00 

o.c 

1 . 166000E— 01 

5.094831E 

00 

0.0 

1 .166000E-01 

5.145209E 

00 

0.0 

1 • 166000E— 01 

5.196005E 

00 

0.0 

1.1 66000E—0 1 

5 • 247223 E 

00 

0.0 

1 .166000E-01 

5.298873E 

00 

0.0 

1 • 166000E— 01 

5 • 350962E 

00 

0.0 

1 .166000E — 01 
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5.403499E 

00 

0.0 

1.166000E-01 

5 *456491 E 

00 

0.0 

1 •166000E-01 

5.5C9947E 

00 

0.0 

1 .166000E-01 

5 • 563875E 

00 

0.0 

1.1 66000E— 0 1 

5.618285E 

00 

0.0 

I.I66000E-01 

5.673186E 

00 

0.0 

1.1 66Q00E— 9 1 

5.728586E 

00 

0.0 

l • 166000E— 01 

5.784498E 

00 

0.0 

1.166000E-01 

5.84C920E 

00 

0.0 

1.166000E-01 

5.897837E 

00 

0.0 

1.1 66000E-0 1 

5.955386E 

00 

0.0 

1.1 66000E—0 1 

6.013434E 

00 

0.0 

1.166C00E-01 

6.C72043E 

00 

0.0 

1 • 1 66000E— 0 1 

6.131224E 

00 

c.o 

1 . 166000E-0 1 

6.I90S87E 

00 

c.o 

1.166000E-01 

6.251345E 

00 

0.0 

1 .166000E-01 

6.3123Q7E 

00 

0.0 

1 • 166000E-0 1 

6.37388 9E 

00 

0.0 

1 .166000E-01 

6.436L01E 

00 

0.0 

1 • 1 66000E— 0 1 

6.498956E 

00 

0.0 

1 • 166000E -01 

6 • 56246 7 E 

00 

0.0 

l • 1 66000E-0 1 

6 • 6 2 6 64 7E 

00 

0.0 

1 • 1 66000E-0 I 

6 .691 5 1 0 E 

00 

0.0 

1 • 1 66000F-0 1 

6.757C72E 

00 

0.0 

1.166000E-01 

6.823245E 

00 

0.0 

1.1 66000E -0 1 

6.890345E 

00 

0.0 

1.166000E-01 

6.958C87E 

00 

0.0 

1.166000E-01 

7.026586E 

00 

0.0 

1 .166000E-01 

7.095858E 

00 

0.0 

1 • 166000E— 0 1 

7.165919E 

00 

0.0 

1.1 66000E -0 1 

7.236790E 

00 

0.0 

1.1 6600QE-01 

7.308482E 

00 

0.0 

1.1 66000E-0 1 

7.381019E 

00 

0.0 

1 • 1 66000E-0 1 

7.454415E 

00 

0.0 

1 • 166000E— 0 1 

7 • 528 69 1 E 

00 

o.c 

1 • l 66000E -0 1 

7.6G3867E 

00 

0.0 

1.1 66000E— 0 1 

7.67996CE 

GO 

c.o 

1 • 1660C0E— 01 

7 . 756994E 

00 

0.0 

1 • 1 66000E— 0 1 

7 . 83499 CE 

00 

0.0 

1.166000E-01 

7.913967E 

00 

0.0 

1 • 166000E-0 1 

7.993950E 

oc 

0.0 

1.166000E-01 

8 .07496 IE 

00 

0.0 

1 • 166000E-01 

8.1 57023E 

00 

0.0 

1 .166000E-01 

8.240164E 

00 

0.0 

1 • 1 66000E— 0 1 

8 • 3244C6E 

00 

0.0 

1 • 166000E-0 1 

8.409776E 

00 

0.0 

1 .166000E-01 

8 • 496 30 IE 

00 

0.0 

1 . 166000E-0 1 

8.584008E 

00 

0.0 

1 • 1 66000E-0 1 

8.672928E 

00 

0.0 

1.166000E-01 

8.763C88E 

00 

0.0 

1.166000F-01 

8 • 85452 0E 

00 

0.0 

1.1 66000E-0 1 

8.9472 54E 

00 

c.o 

1 • 166000E-0 1 

9.041325E 

00 

0.0 

1 .1 66000E-01 

9.136765E 

00 

0.0 

1 • 166000E— 01 

9.233607E 

00 

0.0 

l • 166000E-01 

9.331889E 

00 

0.0 

1.166000E-01 

9.43 1649E 

00 

0.0 

1 • 166000E-0 1 

9.532924E 

00 

0.0 

1.166000E-01 

9 • 635753E 

00 

c.o 

1 • 166000E-0 1 

9.740177E 

00 

0.0 

1.166000E-01 

9 .846 241 E 

00 

0.0 

1 .166000E-01 

9 • 9 53984 E 

00 

0.0 

1.1 66 OOOE — 0 1 

1 • 00 6346E 

01 

0.0 

1 .166000E-01 

1.01747 IE 

01 

0.0 

1 • 1 66000E— 0 1 

1.O28770E 

01 

0.0 

1 • 1 66000E -0 1 

1 .0402 72 E 

01 

0.0 

1.166000E-01 

1.05 19 59E 

01 

0.0 

1 • 16 6000E -0 1 

1.063845E 

01 

0.0 

1.1 66Q00E-0 1 

1.075934E 

01 

c.o 

1 • 166000E— 0 1 

1.088233E 

01 

0.0 

1.1 66000E-01 

1 • 10G747E 

01 

0.0 

1 • 166000E-0 1 

1.1 13404E 

01 

0.0 

1.166000E-01 

1 • 126449 E 

01 

0.0 

1.166000E-01 

1.139650E 

01 

0.0 

1.166000E-01 

1 • 153093E 

01 

0.0 

1.166000E-01 
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I 


1.166787E 

01 

0.0 

1.1 66000E— 0 1 

1.18C738E 

01 

0.0 

l • 166000E-0 1 

1.194955E 

01 

0.0 

1 • 166000E— 0 1 

1.209446E 

01 

0.0 

1 • 166000E-0 1 

1 • 22 422 OE 

01 

0.0 

1 • 166000E— 0 1 

1.239286E 

01 

0.0 

1 • 166000E— 0 1 

1 • 254653E 

01 

0.0 

1.166000E-01 

l • 27033 IE 

01 

0.0 

1 • 166000E— 0 1 

1 .286331E 

01 

0.0 

1.1 66000E-0 1 

1.302663E 

01 

0.0 

1.166000E-01 

1 • 3 19339E 

01 

0.0 

1.166000F— 01 

1 .33 637 OE 

01 

0.0 

1.1 66000E— 0 1 

1.353769E 

01 

0.0 

1 * 166000E-01 

1.371548E 

01 

0.0 

1 • 1 66000E—Q1 

l • 389 72 IE 

01 

0.0 

1.166000E-01 

1.408302E 

01 

0.0 

1 • 1 66000F-0 1 

1 .4273Q7E 

01 

0.0 

l • 1 66000E— 0 1 

1 .446749E 

01 

0.0 

1.166000E-01 

1 • 466647E 

01 

0.0 

1 • 166000E-01 

1.487CI6E 

01 

0.0 

1.1 66000E— 01 

l .5078756 

01 

0.0 

1 . 166000E-01 

1 • 529243E 

01 

0.0 

1 • 1 66QOOE— 0 1 

1.551140E 

01 

0.0 

1 • 1 66000E— 0 1 

1.573586E 

01 

0.0 

1 • 1 66000E-0 1 

1 • 59 6604E 

01 

0.0 

1.1 66000E-0 1 

1.620216E 

01 

0.0 

1.1 66000E- 0 1 

1 .644449E 

01 

0.0 

1.166000E-01 

1.669325E 

01 

0.0 

1. 166000E-01 

1.694875E 

01 

0.0 

1 .166000E-01 

1.721127E 

01 

0.0 

1.166000E-01 

1.748111E 

01 

0.0 

1 « 166000E-0 1 

1 .775859E 

01 

0.0 

1.1 66000E-0 1 

l • 80440 7E 

01 

c.o 

1 • 1 66000E-0 1 

1.833788E 

01 

0.0 

1.166000E-01 

1 • 864044E 

01 

0.0 

1.166000E-01 

1.895215E 

01 

0.0 

1.1 66000E-0 1 

1 • 92 7344E 

01 

0.0 

1 .166000E-0 1 

1.960478E 

01 

0.0 

1.166000E-01 

1 *99 4667E 

01 

0.0 

1.166000E-01 

2 . 02 9964E 

01 

0.0 

1 . 1 66000E— 01 

2.066425E 

01 

0.0 

1.1 66000E- 0 1 

2.104109E 

01 

0.0 

1 • 1 66000E-0 1 

2.143082E 

01 

c.o 

1.166000E-01 

2.18341 4E 

01 

0.0 

1 .166000E-01 

2.225177E 

01 

0.0 

l • 1 66000F- 0 1 

2 • 268454 E 

01 

0.0 

1 • 1 66000E- 0 1 

2*31332 6E 

01 

0.0 

1 • 166000E—0 1 

2.359889E 

01 

0.0 

1 • 1 66000E-0 1 

2.408243E 

01 

0.0 

1.1 66000F- 0 1 

2 • 458493E 

01 

0.0 

1.166000E-01 

2.510757E 

01 

0.0 

1.1 66000E-0 1 

2 • 56 5 16 IE 

01 

0.0 

1 • 1 66000E-0 1 

2*62 1843E 

01 

0.0 

1.166000E-01 

2 • 680949E 

01 

0.0 

1.1 66000E— 01 

2 • 742644E 

01 

0.0 

1.166000E-01 

2.807103E 

01 

0.0 

1.166000E-01 

2.874519E 

01 

0.0 

1 .166000E-01 

2.945105E 

01 

0.0 

1.1 66000E-01 

3.019095E 

01 

0.0 

1 • 166000E-01 

3 • 09674 IE 

01 

0.0 

1.1 66000E— 01 

3 • 178326E 

01 

0.0 

1 • 166000E-01 

3 • 264 165E 

01 

0.0 

1 • 166000E—0 1 

3 *35460 IE 

01 

0.0 

1 • 1 66000E— 01 

3.450018E 

01 

0.0 

1.1 66000E-0 1 

3.550845E 

01 

0.0 

1 • 1 66000E— 01 

3 *65 756 1 E 

01 

0.0 

1.166000E-01 

3 • 770702E 

01 

0.0 

1 • 166000E— 0 1 

3 • 89087 IE 

01 

0.0 

1 . 166000E— 0 1 

4.018752E 

01 

0.0 

1.166000E-01 

4.155119E 

01 

0.0 

1 . 166000E— 0 1 

4.300851E 

01 

0.0 

1.166000E-01 

4 • 456956E 

01 

0.0 

1 • 1 66000E— 0 1 

4 • 624590E 

01 

0.0 

1.1 66000E— 0 1 

4.C05089E 

01 

0.0 

1 • 166000E— 01 

5* OOOOOOE 

01 

0.0 

1 • 166000E— 0 IS 
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Unit 5 Input Data for the 31° Hyperboloid 
Binary-Gas Sample Case 


FREE FLIGHT 3I0EG HYPER ALT=245K FT. M=26.9 ALPHA=30, BINARY-GAS 
£ INPUT 

ALT=245C00. 0, 

BRAD=2. 360833, 

DS=0.2, 

DSMAX=3.0, 

HANGLE=31 .0, 

RINF=.867251028D-07, 

SEND=43.0, 

T B= 2460 .0 , 

THI NI =— 1 • , 

LO TINF=361.48, 

UINF=25100.0, 

XKETA=1 .05 » 

I END=6 , 

IGECM=1 t 
KEND=I, 

NAN=1, 

NDAT A=l, 

NS=2, 

N S I = 2 , 

NTSH=20, 

£ END 

.23456 .76544 

.23456 ^76544 



Unit 5 Input Data for the 31° Hyperboloid 
7-Species Sample Case 


FREE FLIGHT 3IDEG HYPER ALT=245K FT. M=26.9 ALPHA=30, 7-SPECIES 
SINPUT 

ALT=245000.0» 

BRAD=2. 360833, 

DS=0.2» 

DSMAX=3.0, 

HANGLE=3I.0» 

RINF=. 8672510280-07, 

SEND=43 .0 * 

TB=2460.0, 

THIN I--1 • * 

TINF=361.48, 

U INF=25100. 0* 

XKET A= 1.05* 

I END=6 * 

IGECM=1, 

KEND=1 » 

NAN=1, 

NDATA=1» 

NS=6, 

NSI=6, 

NTSH=20 » 

&END 

.23456 .76544 

.23456 .76544 



FREE FLIGHT 140B ORBITER ALT = 245K FT. M-=26.9 ALPHA=30, BINARY-GAS 


f» I NPUT 

ALT= 245000. OOCGOOOOGO ,BRAO= 2 .36O8330C00OC 000 ,CAINF= 0.0 ,CAT= 1 . OOOOOOOOCCOOOOO ,CAW = 

0.0 ,CCFAC= 0.0 , CONVRG = 0.999999 79 138374320-02 t 0S= 0.2000000000000000 ,DSMAX= 

1. 000000000000000 * HANGL£= 10 . COOOOOOOOOOOCO ,PRNTCl= 0.0 ,RINF= 0.86725102799999990-07 ,SEND- 

35.00000000000000 ,SIGM= 0.6959999880790710 ,SITEST= G .99999990197829900-04, SMALLT= 0. 99999942 90410541 D-06 , SSFAC= 

-l.OOOOOGCOOOOOOOO , S V.FAC- -1 . COOOOOOOOOOOCOO , TB= 2460 .OOOOOCOCOOOO ,THINI= -1 .OOOOOOOOQCOOOOO ,TINF= 

361 • 480000C DOC 000 ,UFAC= 0 .5000000000000000 ,UINF= 25100.00000000000 ,WVFAC= 0.2 500000000000000 ♦ XKETA= 

L. 050000000000000 ,XLE= 1.399999618530273 ,XNSO= 0.1165995770164490 , I E- 51,IEND= 6,IGE0M* 3, 

IUN= 19, J FAC= 1,KEN0* 1,KPLTTP= 0,KTWAL= 0,NAN= -2,NDATA= l,NITMAX- 

9999 1 N I TMI 3,NITMNI= 3,N$ = 2,NSI= 2,NSPRF= OtNTSH= 20,NTTWA= 

5 

6EN0 


LOG RATES MATCH 6 SPECIE BLGTTNER-S AND! A 


NR 



REACTION 


CRO 

EXP(CRO) 

CR1 

CR2 

DRO 

EX PC DRO ) 

0R1 

DR 2 

1 

02 

02 

*0 0 

02 

44.9274640 

0.3249D 20 

59400.0 

-1.0 

37.8379411 

0 .27090 17 

0.0 

- 0.5 

U3 2 

02 

a 

= 0 C 

C 

45.9491153 

0.9025D 20 

59400.0 

- 1.0 

38.8595923 

0.75250 17 

0.0 

- 0.5 


ALPHSB ( 2, 2) 

NR 0 02 

1 0 . 2 . 

2 1 . 1 . 

8ETASB ( 2, 2) 

NR BETSUB NP 0 02 

L 2.0 1 2. 1. 

2 2.0 2 3. 0. 

C A MM PL { 2, 2) 

1 2 . 0 . 

2 2 . 0 . 

GAMMMIt 2, 2) 

1 0 . 1 . 

2 0 . 1 . 

VSREF = 0.193320650-04 

VSINF = 0.464513090-06 


NR ALSU 8 
1 1.0 

2 1.0 



K =1, 

I 

= 

It 

S 

= 

0.0 

t 

NITER 

= 

It 

DIFI 

= 

3.900D 01 

2.544C 00 

0.0 

l.OOOD 00 

K - 1 , 

I 

= 

It 

S 

= 

0.0 

t 

NITER 

= 

2, 

DIFI 

- 

4.802D-0 1 

1.944D 00 

4.395D-01 

1.073D 04 

K =1, 

I 

= 

1, 

S 

= 

0.0 

t 

NITER 

= 

3 t 

DIFI 

= 

3.7220-01 

2.615 C- 01 

2 • 1690-01 

3.553D 01 

K =1, 

I 

= 

It 

s 

- 

0.0 

t 

NITER 

- 

4, 

DIFI 

= 

9. 7250-02 

3.613D-01 

7.576D-02 

1.696D 01 

K =1, 

I 

= 

It 

S 

= 

0.0 

t 

NITER 

= 

5t 

DIFI 

= 

1.2800-01 

3 . 756C-C1 

3.625D-0 1 

4.820D 01 

K = 1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

6 « 

DIFI 

- 

8 .85GD-02 

2.793D-01 

3.368D-01 

5.120D 00 

K =1, 

I 

= 

It 

S 

- 

0.0 

t 

NITER 

= 

7, 

DIFI 

= 

5.8750-02 

5. 058D-02 

1.091 D- 01 

1 • 6860 00 

K =1, 

I 


It 

S 

= 

0.0 

t 

NITER 

= 

8 , 

DIFI 


5.0280-02 

5 .2790-02 

4.782D-02 

1.537D 00 

K = 1 , 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

9, 

DIFI 

= 

6.379D-02 

4.067D-02 

8.176D-02 

1.463D 00 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

10, 

DIFI 


5.1120-02 

2* 960D-02 

6.005D-02 

1.075D 00 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

lit 

DIFI 

= 

4.1920-0 2 

2.4440-02 

4.478D-02 

7.984D-01 

K =1, 

I 

= 

1. 

s 

= 

0.0 

f 

NITER 


12, 

DIFI 

= 

3.646D-02 

2. 144C-02 

3.907D-02 

6.252D-01 

K =1, 

t 

= 

It 

s 

= 

0.0 

t 

NITER 


13, 

DIFI 

= 

3.1590-02 

1.8350-02 

3.4850-02 

4.9290-01 

K =1 1 

I 

= 

1. 

s 

= 

0.0 

t 

NITER 

= 

14, 

DIFI 

= 

2.6930-02 

1. 5380-02 

3.009D-02 

3. 877D-01 

K = 1 , 

I 

= 

1, 

s 

= 

0.0 

t 

NITER 

= 

15, 

DIFI 

= 

2 .2 800-02 

1.286D-02 

2 . 554D-02 

3.071D-01 

K =1, 

I 


It 

s 

= 

0.0 

t 

NITER 

= 

16, 

DIFI 

- 

1.9280-02 

1. 077C-02 

2. 165D-02 

2.458D-01 

K =1, 

I 


1. 

s 

= 

0.0 

t 

NITER 

= 

17, 

DIFI 

= 

1.6270-02 

9.005D-03 

1.835D-02 

1.9790-01 

K =1, 

1 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

18, 

DIFI 

= 

1.3700-02 

7.512D-03 

1 .5510-02 

1.600D-01 

K =1, 

I 

= 

1» 

s 

= 

0.0 

t 

NITER 

= 

19, 

DIFI 

= 

1.1 50D-02 

6. 2520-03 

1.305D-02 

1.297D-01 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

20, 

DIFI 

= 

9.6280-03 

5.197C-03 

1.096D-02 

1.057D-01 

K =1, 

I 

-= 

It 

s 

= 

0.0 

t 

NITER 

= 

21, 

DIFI 

= 

8.052D-03 

4. 316D-03 

9.1 80D-03 

8.6460-02 

K =1, 

I 

= 

It 

s 


0.0 

t 

NITER 

= 

22, 

DIFI 

= 

6.665D-03 

3 . 580D-03 

7 .6780-03 

7.086D-02 

K = 1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

- 

23, 

DIFI 

= 

5 . 14 2D-03 

2 • 716C-C3 

5.377D-03 

5.1060-02 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

24, 

DIFI 

= 

4 .7700-03 

2 • 645D-03 

4.939D— 03 

4.738D-02 

K =1, 

I 


It 

s 

= 

0.0 

I 

NITER 

= 

25, 

DIFI 

= 

4.136D-03 

2. 311 D- 03 

4.6 16D-03 

4.233D-02 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

26, 

DIFI 

= 

3.444D-03 

1.902C-03 

4.017D-03 

3.5900-02 

K =1, 

I 

= 

It 

s 

= 

0.0 

1 

NITER 

= 

27, 

DIFI 


2. 8420-03 

1.5480-03 

3.393D-03 

2.982D-02 

K = 1 f 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

28, 

DIFI 

= 

2.350D-03 

1.259D-03 

2.843D-03 

2.458D-02 

K =1, 

I 

= 

1. 

s 

= 

0.0 

t 

NITER 

= 

29, 

DIFI 


1 .9460-03 

1.019D-G3 

2.369D-03 

2.0130-02 

K = 1, 

I 


It 

s 


0.0 

t 

NITER 

= 

30, 

DIFI 

= 

1.6C8D-03 

8. 193D-C4 

1. 9630-03 

1 • 636D-C2 

K = 1, 

I 

= 

1. 

s 

= 

0.0 

t 

NITER 

= 

31, 

DIFI 

= 

1.324C-03 

6.552D-C4 

1.618D-03 

1.3230-0 2 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

32, 

DIFI 

= 

1.065D-C3 

5.221C-G4 

1.327D-03 

1.0670-02 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

33, 

DIFI 

= 

8. 8580-04 

4.1520-04 

1 *0840-03 

8 . 580D-03 


UINF 

PINF 

TINF 

CAINF 

TB 

BRAD 

PR 

LE 


YSH 

ALT 

C . 25 ID 

05 0. 486760-01 0.361480 03 C 


0.2460D 04 

0.236LD 01 

0.700 00 

0.140 01 

0.43540-01 

0.245D 

THIN SHOCK LAYER 

NO WALL SLIP NC SHGCK 

SLIP 

CAT WALL NC 

STEPS IN Y= 51 

NO STFPS IN 

s= 

6 S 

STEP SIZE=0.200 


TW/TS 

EPS 

REYINF REYSH 

TREF 

UREF 

RREF 

PREF 


ITER 



0.0638 

0.0613 0 

• 1 106C 05 0.66110 03 

0.1147D 

06 0.25100 

05 0.8673D- 

07 0.54640 

02 

1 




**** FREE FLIGHT LAGS 0R8ITER ALT=245K FT. M=26.9 ALPHA=30, BINARY-GAS 

i 


**** 


S 

X 

R 

YSH 

YSHP 

0.0 

0.0 

0.0 

0.043541 

0.0 

DS 

CF 

HEAT 

STAN 

CDF 

0.200000 

0.0 

0.043937 

0.091651 

0.0 


XSH RSH NO ITER NITTOT NTOT I K 

-0.043541 0.0 33 33 33 1 1 

CDP COTOT PWALL TWALL PW/PO 

1.751458 1.751458 0.875729 2460.000000 1.000000 


YSHP < S YSHP ( S+DS/2 NEW YSHP ALPHAIS+DS/2 PHKS+DS/2 
0.0 0.000000 O.C 1.444297 1.444297 


USH 

0.0 


TSH 

0.331071 

37963*65 

21090.92 


KAPPA ( S KAPPA! S*DS/2 
1.000000 0.977685 


0.0 


VSH 

-0.135425 

-2646.17 


RSH 

9.409600 


PSH 

0 .88039 1 


VPG 

0.0 



N 

Y/YSH 

U/USH 

V/VSH 

T/TSH 

R/RSH 

P/PSH( APPR) 

P/PSH 

CA 

CAEQ 

XM 

T DEG R 

1 

0.0 

0.0 

0.0 

0.064799 

15.350654 

0.994705 

1.064659 

0.0 

0.000002 

c.o 

2460.00 

2 

0.004777 

0.035621 

0.000088 

0 • 0802C0 

11.723069 

0.994705 

1.064659 

0.058053 

3.000164 

0.000102 

3044.68 

3 

0.009792 

0.068436 

0.000398 

0.093896 

9.530513 

0.994706 

1.064660 

0.111651 

0.002262 

0.000421 

3564.62 

4 

0.015059 

0.099311 

0.000961 

0.106465 

8.039284 

0.994708 

1.064662 

0.162270 

9.013942 

0.0C0938 

4041.81 

5 

0.020588 

0.128733 

0.001804 

0.118217 

6.950163 

0.994712 

1.064665 

0.2L0750 

0.053291 

0.001644 

4487.97 

6 

0.026394 

0.1570C8 

0.002956 

0. 129342 

6.115703 

0.994718 

1.064668 

0.257606 

0. 146813 

0.002531 

4910.28 

7 

0.032491 

0.184334 

0.004443 

0. 139960 

5. 454 1 Cl 

0.994725 

1.064672 

0.303172 

9. 312377 

0.0G3597 

5313.38 

8 

0.03889 2 

0.210848 

0.006295 

0.150153 

4.915986 

0.994734 

1.064675 

0.347667 

0.529330 

0.004840 

5700.36 

9 

0.045614 

0.236643 

3.008540 

0. 159977 

4.469627 

0.994746 

1.064677 

0.391234 

0.732473 

C. 006259 

6073.30 

10 

0.052671 

0.261784 

0.011207 

G. 169468 

4.093570 

0.994759 

1.064678 

0.433968 

0.867856 

C. 007856 

6433.63 

11 

0.060081 

0.286314 

0.014326 

0.178657 

3.772693 

0.994775 

1.064675 

0.475917 

0.937851 

0.009633 

6782.46 

12 

0.067862 

0.310261 

0.017927 

0.187567 

3.495974 

0.994793 

1.064668 

0.517092 

0.970129 

0.011593 

7120.73 

13 

0.076032 

0.333641 

0.022040 

0.196226 

3.255124 

0.994814 

1.064656 

0.557465 

0.984380 

0.013737 

7449.46 

14 

0.084610 

0.356459 

0.026697 

0.204665 

3.043756 

0.994837 

1.064637 

0.596971 

0.991893 

0.016070 

7769.83 

15 

0.093617 

0.378715 

0.031931 

0.212921 

2.856861 

0.994863 

1.064609 

0.635512 

0.995415 

0.018594 

8083.25 

16 

0. 103075 

0.400401 

0.037776 

0.221037 

2.690448 

0.994892 

1.064570 

0.672951 

0.997282 

0.021318 

8391.39 

17 

0.113006 

0.421506 

0.044269 

0.229C65 

2.541303 

0.994923 

1.064519 

0.709125 

0.998324 

0.024246 

8696.14 

18 

0.123433 

0.442017 

0.051448 

0.23706C 

2.406812 

0.994958 

1.064453 

0.743841 

0.998932 

0.027384 

8999.66 

19 

0.134381 

0.461919 

0.059352 

0.245081 

2.284858 

0.994995 

1.064369 

0.776887 

0.999300 

0.030743 

9304.17 

20 

0.145877 

0.481201 

0.068024 

0.253185 

2.173736 

0.995036 

1.064264 

0.808039 

0.999531 

0.034330 

9611.83 

21 

0.157947 

0.499853 

0.077503 

0.261423 

2.072092 

0.995081 

1.064135 

0.837076 

0.999680 

0.038158 

9924.57 

22 

0.170621 

0.517873 

0.C87828 

0.269833 

1.978870 

0.995129 

1.063978 

0.863787 

0.999778 

0.042231 

10243.86 

23 

0.183929 

0.535264 

0.099032 

0.278437 

1. 893275 

0.995180 

1. 063789 

0. 887994 

0.999844 

0.046558 

10570.48 

24 

0.197902 

0.552039 

0.111137 

0.287229 

1.814733 

0.995235 

1.063564 

0.909559 

0.999888 

0.051145 

10904.26 

25 

0.212574 

0.568221 

0.124156 

0.296175 

1.742855 

0.995294 

1.063300 

0.928407 

0.999919 

0.055998 

11243.89 

ud 26 

0.227980 

0.583843 

3. 138082 

0.305207 

1.677393 

0.995356 

1.062992 

0.944532 

0.999940 

0.061118 

11586.75 

00 27 

0.244155 

0.598950 

0.152891 

0.314220 

1.618194 

0.995423 

1.062639 

0.958C04 

0.999955 

0.066501 

11928.94 

28 

0.261140 

0.613597 

0. L68538 

0.323083 

1.565160 

0.995494 

1.062235 

0.968973 

0.999966 

0.072142 

12265.41 

29 

0.278974 

0.627850 

0.184961 

0.331641 

1.518198 

0.995570 

1.061781 

0.977655 

0.999973 

0.078034 

12590.29 

30 

0.297699 

0.641786 

0.202088 

0.339729 

1 .477185 

0.995651 

1.061273 

0.934321 

0.999978 

0. 0841 68 

12897.37 

31 

0.317361 

0.65549C 

0.219841 

0.347193 

1.441940 

0.995737 

1.060711 

0.989273 

0.999902 

0.090536 

13180.73 

32 

0.338006 

0.669053 

0.238152 

0.353901 

1.412201 

0.995829 

1.060094 

0.992819 

0.999985 

0.097136 

13435.39 

33 

0.359683 

0.682575 

0.256970 

0.359760 

1.387618 

0.995928 

1.059418 

0.995255 

0.999987 

0.103966 

13657.81 

34 

0.382443 

0.696158 

0.276275 

0.364726 

1.367755 

0.996035 

1.058682 

0.996841 

0.999988 

0.111040 

13846.34 

35 

0.406342 

0.709908 

0.296085 

C. 368808 

1.352100 

0.996149 

1 .057881 

0.997791 

0.999989 

0.118378 

14001.29 

36 

0.431436 

0.723930 

0.316460 

0.372066 

1.340078 

0-996273 

1.057005 

0.998271 

0.999990 

0.126013 

14124.97 

37 

0.457785 

0.738327 

0.337506 

0.374604 

1.331071 

0.9964C6 

1.056046 

0.998391 

0.999990 

0.133965 

14221.32 

38 

0.485451 

0.753196 

0.359374 

0.376562 

1.324439 

0.996551 

1.054987 

0.998208 

0.999991 

0.142350 

14295.68 

39 

0.514500 

0.768627 

0.382257 

0.378107 

1.319534 

0.996709 

1.053809 

0.997727 

0.999991 

0.151170 

14354.34 

40 

0.545002 

0.784699 

3.406389 

0.379424 

1 .315711 

0.996881 

1.052489 

0.996897 

0.999991 

0.160520 

14404.33 

41 

0.577029 

0.8014 79 

0.432048 

0.380719 

1 .312324 

0.997068 

1.050993 

0.995595 

0.999992 

0.170488 

14453.50 

42 

0.610657 

0.819019 

0.459572 

0.382231 

1.308697 

0.997272 

1.049282 

0.993599 

0.999992 

0.181176 

14510. 89 

43 

0.645966 

0.837357 

0.489384 

0.384262 

1.304062 

0.997495 

1.047303 

0.990537 

0.999992 

C. 192714 

14587.99 

44 

0.683041 

0.8565C9 

0.522067 

0.387241 

1.297431 

0.997739 

1.C44980 

0.985780 

0.999993 

0.205275 

14701.08 

45 

0.721970 

0. 876466 

0.558495 

0.391851 

1.287380 

0.993005 

1.042201 

0.978240 

0.999993 

0.219108 

14876.09 

46 

0.762845 

0. 897171 

0.600120 

0.399294 

1.271638 

0.998293 

1.038778 

0.965931 

0.999994 

0.234625 

15158.65 

47 

0.805764 

0.918500 

0.649600 

0.411920 

1.246322 

0.998606 

1.034361 

0.944943 

0.999995 

0.252582 

15637.99 

48 

0.850829 

0.940190 

0.712337 

0.434937 

1.204448 

0.998939 

1.028224 

0.906630 

0.999997 

C. 274480 

16511.80 

49 

0.898148 

0.961722 

0.800273 

0.482026 

1.133606 

0.999288 

1.018843 

0.828441 

0. 999998 

0.3C3756 

18299.47 

50 

0.947832 

0.982097 

0.935987 

0.598451 

1.020715 

0.999640 

1.007360 

0.636124 

0.999999 

0.349042 

22719.37 

51 

1.0C0000 

1.000000 

1.003332 

1.000000 

1.000000 

l. 000000 

1.000000 

0.0 

1.000000 

0.360816 

37963.65 



K 

= 1. 

I 

= 

2. 

S 

= 

0.200 » 

NITER 

= 

1, 

01 FI 

= 

K 

= 1» 

I 

= 

2 * 

S 

= 

0.200, 

NITER 

= 

2, 

DIFI 

= 

K 

= 1, 

I 

= 

2, 

S 

= 

0.200, 

NITER 

= 

3, 

DIFI 

- 

K 

= 1, 

I 

= 

2, 

S 

= 

0.200, 

NITER 

= 

4, 

DIFI 

= 

K 

= 1, 

I 

= 

2, 

s 


0.2C0, 

NITER 

= 

5, 

DIFI 

= 

K 

*lt 

I 


2, 

s 

= 

0.200, 

NITER 


6 , 

DIFI 

- 


8.794D-01 6.982D-G3 1.6000-03 3.0060-02 
2.5700-01 6.1 64D-02 6.7920-02 3.9870-01 
A. 0650-02 4.281C-02 1.572D-02 5. 4240-02 
2.1540-0 2 1.554D-02 1.0510-02 6.4520-02 
9.1360-03 2.956D-C3 4.462D-03 3.101D-02 
2 . 133D-03 1.0130-03 1.0180-03 4.7390-03 


**** 


FREE FLIGHT 1408 ORBITER 


ALT=245K FT. M=26.9 ALPHA=30, BINARY-GAS 


**** 


$ 

X 

R 

YSH 

YSHP 

XSH 

RSH 

NO ITER 

NITTOT 

NTQT 

0.200000 

0.025602 

0.197806 

0.054988 

0.114469 

-0.027687 

0.211368 

6 

39 

39 


DS CF 

0.200000 0.010448 


HEAT STAN 

0.034649 0.072278 


CDF 

0.002606 


CDP 

1.707200 


COTOT 

1.709805 


PWALL TWALL 

0.871149 2460.000000 


PW/PO 

0.994770 


YSHP ( S YSHP ( S+DS/2 

0.000000 0.000000 


NEW YSHP ALPHA < S +DS/ 2 PHKS+DS/2 
0.114469 1.425378 1.425378 


KAPPACS KA PP A( S+DS/2 
0.890295 0.652402 


USH 

VSH 

TSH 

RSH 

PSH 

VPG 

0.135534 

-0.105267 

0.330158 

9.411532 

0.878142 

0.0 

3401*91 

-2642.21 

37858.90 

21032.73 





K 

= 1. 

I 

- 

3, 

S 


0.4G0, 

NITER 

= 

1, 

DIFI 

= 

3.602D-01 

1.241D-01 

3.697D-02 

1 • 790D-01 

K 

= 1, 

I 

- 

3, 

S 

- 

0.400, 

NITER 

= 

2, 

DIFI 

= 

5.6190-01 

3 .323 0-02 

8.8440-02 

5. 7570-01 

K 

= 1, 

I 

■= 

3, 

S 

= 

0.400, 

NITER 

- 

3 » 

DIFI 

= 

3.2170-0 2 

4 • 5390- 02 

3.0130-02 

3.683D-01 

K 

= 1» 

I 

= 

3, 

s 

s 

0.400, 

NITER 

= 

4, 

DIFI 

= 

6.342D-03 

8 . 854D-03 

4.399D-03 

1 .0370-02 

K 

= 1, 

I 

= 

3, 

S 

* 

0.400, 

NITER 

= 

5, 

DIFI 

- 

2.035D-03 

4.7390—04 

1.997D-03 

5.523D-C3 


**** 


FREE FLIGHT 140B ORBITER 


AL T= 24 5K FT. M=26.9 ALPHA=30, BINARY-GAS 


**** 


S 

0.400000 

X 

0.082326 

R 

0.389258 

YSH 

0.078699 

YSHP 

0. 122640 

XSH 

0.007402 

RSH NO ITER 

0.413337 5 

NITTOT NTOT I J 

44 44 3 

DS 

0.200000 

CF 

0.015368 

HEAT 

0.026732 

STAN 

0.055763 

CDF 

0.003762 

COP 

1.670689 

CDTOT PWALL 

1.674451 0.806482 

TWALL PW/PO 

2460.000000 0.920926 

YSHP ' S 
0.000000 

YSHP ( S+DS/2 
0.000000 

NEW YSHP 
0.122640 

ALPHA ( S +DS/ 2 
1.210361 

PHKS+DS/2 

1.210361 

KAPPA ( S 
0.534291 

KAPPA! S+DS/2 
0.459847 



USH 

VSH 

TSH 

RSH 

PSH 

VPG 

0.248794 

-0.101984 

0.311164 

9.439457 

0.829947 

0.0 

6244.73 

-2559.80 

35680.91 

19822.74 






K 

= 1. 

[ 

= 

4, 

S 


0.600, 

NITER 

= 

1» 

0 1 F I 

- 

1.7140-01 

1.488 D- Cl 

1.1920-01 

6.8240 CO 

K 

= lt 

I 

= 

4, 

S 

= 

0.600, 

NITER 

= 

2 r 

DIFI 

= 

2.4190-01 

7.362D-02 

8.6620-02 

8. 2760-01 

K 

= 1. 

I 

= 

4 , S 

= 

0 .600 t 

NITER 

= 

3, 

DIFI 

= 

4.6200-02 

3.360D-02 

2. 5730-02 

2.228D-01 

K 

■It 

I 

= 

4, S 


0 • 60C * 

NITER 

= 

4, 

DIFI 


6.5600-03 

1.078D-C2 

8.3460-03 

6. 4010-02 

K 

= 1. 

I 

= 

4, S 

= 

0.6CC, 

NITER 

= 

5, 

DIFI 

= 

5 .0320-04 

1.579C-C3 

3.3380-03 

2.9630-02 

K 

■It 

I 

= 

4, S 

= 

0.600, 

NITER 

= 

6 , 

DIFI 

= 

7.8470-04 

4 .3590-04 

3. 2150-04 

6. 5740-03 


**** FREE FLIGHT 140B ORBITER ALT=245K FT. M=26.9 ALPHA-30, BINARY-GAS **** 


S 

0 • 6000 J 0 


X 

0.153125 


ft 

0.576231 


YSH 

0.088778 


YSHP 

-0.C21844 


XSH 

G. 071465 


RSH NO ITER 

0.611063 6 


NITTOT NTOT I K 

50 50 4 1 


ns 

0.200000 


CF 

0.020365 


HEAT 

0.024787 


STAN 

0.051705 


CDF 

0.005592 


COP 

1.578926 


CDTOT 

1.584518 


PWALL TWALL 

0.714939 2460.000000 


PW/PO 

0.816393 


YSHP ( S YSHP ( S+DS/2 
O.OOCOOO 0 • DC COO 0 


NEW YSHP ALPHAtS+DS/2 PHHS + DS/2 
— 0 . 021 844 1.114267 1.114267 


KAPPAtS KAPP A( S+DS/2 
0.398202 0.354594 


USH 

C. 396758 
9958.63 


VSH 

-0.096824 

-2430.28 


TSH 

0.281341 

32261.11 

17922.85 


RSH PSH VPG 

9.467410 0.752737 0.0 


o 

o 


K 

= 1* 

r 

= 

5, 

S 

= 

0.8 00 , 

NITER 

= 

It 

DIFI 

< 

■It 

i 


5* 

S 

= 

0.800, 

NITER 

= 

2, 

DIFI 

K 

= lf 

i 

= 

5 , 

S 

= 

0.800, 

NITER 

= 

3, 

DIFI 

K 

= lt 

i 

= 

5, 

s 

- 

0.800, 

NITER 


4, 

DIFI 

K 

= 1. 

r 

= 

5, 

s 

= 

0.800, 

NITER 

- 

5, 

DIFI 


= 6.0700-C2 9.228D-C2 8.1950-02 1.811D 00 
= 4.183D-02 1.895D-02 2. 770D-02 6.622D-01 
= 8 .2500—03 6.639D-C3 5.127D-03 3.967D-02 
= 2 .078 D- 03 1.051D-C3 3. 1840-03 3.860D-02 
= 1.5270-04 2.603D-C4 1.7670-04 6.5260-03 


*** + FREE FLIGHT 140e ORBITER ALT=245K FT. M=26.9 ALPHA=30, BINARY-GAS 


**** 


S 

X 

R 

YSH 

YSHP 

XSH 

RSH 

NO ITER 

NITTOT NTOT I 1 

C.800COG 

0.241411 

0 • 7 5 56 3 C 

0.090974 

0.043798 

0.161130 

0.798420 

5 

5 5 55 5 

DS 

CF 

HEAT 

STAN 

CDF 

CDP 

CDTOT 

PWALL 

TWALL PW/PO 

0.200000 

0.021500 

0.022818 

0.047597 

0.007541 

1.486205 

1.493747 

0.647636 

2460.000000 0.739540 

’ SHP ( S 

YSHP ( S+DS/2 

NEW YSHP 

ALPHA(S+DS/2 

PHI C S+DS/2 

KAPPAtS 

KAPP At S+DS/2 



— G .C 0 OC 00 

O.GOOOOO 

0.C43758 

1.033441 

1.033441 

0.309931 

0.278565 




TSH 

0.258557 

29648.52 

16471.41 


USH 

0.476350 

11956.40 


VSH 

-C. 092866 
-2330.94 


RSH 

9.457766 


PSH 

0.691116 


VPG 

0.0 



K 

= lf 

I 

= 

6» 

S 

- 

l.oco. 

NITER 

= 

It 

DIFI 

- 

6.021D-0 2 

9.231C-02 

1.6950-01 

4.7160 00 

K 

= lt 

I 

= 

6, 

S 

= 

l.OOO, 

NITER 

= 

2, 

01 FI 

- 

3 • 743D-02 

1 • 860C-C2 

4.096D-02 

2.0680-01 

K 

= lf 

I 

= 

6* 

S 

= 

l.OOO, 

NITER 

= 

3, 

DIFI 

= 

1.5950-02 

1.2150-02 

2.2160-0 2 

1. 8310-01 

K 

= lt 

I 

- 

6, 

S 

- 

l.OCO, 

NITER 

- 

4, 

DIFI 

st 

2*5 16D-03 

2.9460-03 

3.298D-03 

1.2 99D-02 

K 

-It 

I 

= 

6 , 

S 

a 

1.300, 

NITER 

= 

5, 

DIFI 

- 

2.186D-03 

1 .0430-03 

3 .0690-03 

1.7650-02 

K 

= 1. 

I 

= 

6, 

S 

= 

1.000, 

NITER 

= 

6, 

DIFI 

= 

1.597D-04 

2.7C6D-04 

9.332D-05 

1.541D-03 


**** FREE 

FLIGHT 140B 

ORBITER 

ALT=245K FT. 

M=26.9 ALPHA 

=30, BINARY- 

GAS 

**** 

S 

1.300000 

X 

0.341452 

R 

0.928623 

YSH 

0.098907 

YSHP 

0.035535 

XSH 

C. 257841 

RSH 

0.981461 

NO ITER NITTOT NTOT I K 

6 61 61 6 1 

OS 

o 0.200000 

CF 

0.021800 

HEAT 

0.020432 

STAN 

0.042621 

CDF 

0.009274 

COP 

1.397999 

CDTOT 

1.407273 

PWALL TWALL PW/PO 

0.586682 2460.000000 0.669935 

YSHP ( S YSHP ( S+DS/2 

0.300000 o.oooooc 

NEW YSHP 
0.035535 

ALPHA! S+OS/ 2 
0.971723 

PHI ( S+DS/2 
0.971723 

KAPPAtS KAPPA! S+DS/2 
0.245798 0.219850 



USH 

VSH 

TSH 

RSH 

PSH 

VPG 

0.537871 

-0.089376 

0.238586 

9.425669 

0.635587 

0.0 

13500.57 

-2243.34 

27358.40 

15199.12 






N 

Y/YSH 

U/USH 

V/VSH 

T/TSH 

R/RSH 

P/PSH< APPR ) 

P/PSH 

CA 

CAEQ 

XM 

T OEG R 

i 

0*0 

0.0 

0.0 

0.090044 

10.267920 

0.923055 

1.001704 

0.0 

0.000003 

0.0 

2463.45 

2 

0*004777 

0.038203 

0.0C0064 

0.112695 

7.726415 

0.923058 

1.001707 

0.C6C766 

0.000249 

0.225582 

3083.16 

3 

0*009792 

0.07333 2 

0 .000290 

0.131926 

6.264774 

0.923070 

1.001719 

0.116635 

0.003323 

0.392782 

3609.29 

4 

0*015059 

0.106442 

0.00C704 

C. 148902 

5.296664 

0.923095 

1.001744 

0.169391 

0.018328 

0.526678 

4073.71 

5 

0.020588 

0.138091 

0.001327 

0.164228 

4.6C0746 

0.923138 

1.001786 

0.219994 

0.065467 

0.638621 

4493.03 

6 

0.026394 

C.1686C5 

0.002185 

0.178272 

4.072950 

0.923200 

1.001846 

0.269009 

0. 164526 

0.734689 

4877.25 

7 

0*032491 

0.198134 

0.003301 

0.191271 

3.657324 

0.923283 

1.001925 

0.316786 

0.323319 

0.818604 

5232.87 

8 

0.038892 

0.226951 

0 .004702 

C. 203387 

3.32C843 

0.923388 

1.002C26 

0.363538 

0.518159 

0.892756 

5564.34 

9 

0*045614 

0.254976 

0.006414 

0.214738 

3.042615 

0.923518 

1.002150 

0.409392 

0.700111 

0.958919 

5874.89 

10 

0.052671 

0.282299 

3.008465 

0.225416 

2.808680 

0.923673 

1.002296 

0.454407 

0. 831198 

1.018385 

6167.02 

11 

3.06CC81 

0.308929 

0 .010884 

0.235498 

2.609282 

0.923857 

1.002468 

0.498591 

C.9C8798 

1.072045 

6442.85 

12 

0.067862 

0.334859 

0.013701 

0.245058 

2.437350 

0.924069 

1.002665 

0.541902 

0.950272 

1.120594 

6704.39 

13 

0.076032 

C' • 360 C 67 

0.016947 

0.254168 

2.287604 

0.924312 

1.002888 

0.584253 

0.971929 

1.164633 

6953.63 

14 

0.084610 

0.384522 

0.020654 

0.262906 

2.155999 

0.924588 

1.003138 

0.625516 

0.983476 

1.204400 

7192.70 

15 

0.093617 

0.408183 

0.024858 

0.271355 

2.039379 

0.924898 

1.003414 

0.665525 

0.989874 

1.240207 

7423.84 

16 

0.103075 

C. 431012 

0.029596 

0.279600 

1.935253 

0.925244 

1.003718 

0.704079 

0.993574 

1.272323 

7649.41 

17 

0 . 1 L 3006 

0.452966 

0.034906 

0.287728 

1.841646 

0.925626 

1.004049 

0.740952 

0.995802 

1.300995 

7871.77 

18 

0.123433 

0.474014 

0.040829 

0.295819 

1.756998 

0.926047 

1.004407 

0.775899 

0.997191 

1.326477 

8093.15 

19 

0. 134381 

0.494125 

0.047406 

0.3C3946 

1.68009 2 

0.926508 

1.004790 

0.808671 

0. 998084 

1.349174 

8315.49 

20 

0.145877 

0.513299 

0.054679 

0.312163 

1.610001 

0.927009 

1.005198 

0.839024 

0.998672 

1.369264 

8540.28 

2 i 

0.157947 

C. 531531 

0.062683 

C. 320499 

1.546047 

0.927551 

1.005628 

0.866737 

0.999066 

1.387096 

8768.33 

22 

0.170621 

0.543845 

0.071452 

0.328950 

1.487766 

0.928137 

1.006080 

0.891627 

0.999334 

1.403080 

8999.54 

23 

0.183929 

0.565284 

0.081005 

0.337473 

i. 434875 

0.928766 

1.006551 

0.913567 

0.999518 

1.417684 

9232.73 

24 

0.197902 

0.580908 

0.091351 

0.34598 0 

1.387241 

0.929442 

1.007041 

0.932498 

0.999645 

1.431424 

9465.46 

25 

0.212574 

0.595757 

0.102480 

0.354335 

1.344838 

0.930166 

1.007548 

0.948446 

0.999733 

1.444929 

9694.04 

26 

0.227980 

0.610046 

0.114365 

0.362362 

1. 3077G2 

0.930941 

1 • C 08072 

0.961520 

0.999794 

1.458686 

9913.65 

27 

0.244155 

C. 623763 

0.126959 

0.369857 

1 .275890 

0.931770 

1.008613 

0.971917 

0.999837 

1.473224 

10118.69 

28 

0.261140 

0.637069 

0.140203 

0.376604 

1.249434 

0.932659 

1.009174 

0.979900 

0.999867 

1.489085 

10303.27 

29 

0.278974 

0.650089 

0.154036 

0.382405 

1.228300 

0.933613 

1.009758 

0.985784 

0.999887 

1.506754 

10461.98 

30 

0.257699 

0.662956 

0.168402 

0.387102 

1.212362 

0.934640 

1.010368 

0.989902 

0.999901 

1.526642 

10590.50 

31 

0.317361 

0.675801 

0.L83265 

C. 390603 

1.201381 

0.935747 

1.011C09 

0.992579 

0.999910 

1.549069 

10686.29 

32 

0.338006 

G. 688753 

0.198621 

0.392891 

l .1950G6 

0.936947 

1.011686 

0.994104 

0.999915 

1.574259 

10748.88 

33 

0.359683 

0.701936 

0.214506 

0.394028 

1.192782 

0.938250 

1.012403 

0.994710 

0.999918 

1.6C2341 

10779.96 

34 

0.382443 

0.715461 

0.230996 

C. 394142 

1.194173 

0.939671 

1.013166 

0.994562 

0.999918 

1.633359 

10783.11 

35 

0.406342 

0.729423 

0.248209 

0.393416 

1.198595 

0.941224 

1.013975 

0.99 3754 

0.999916 

1.667287 

10763.24 

36 

0.431436 

0.743900 

0.266293 

0.392058 

1.205451 

0.942926 

1.014833 

0.992309 

0.999913 

1.704046 

10726.08 

37 

0.457785 

0.758948 

0.285418 

0.390283 

1.214164 

0.944798 

1.015739 

0.990180 

0.999908 

1.743527 

10677.53 

38 

0.485451 

0 . 77460 0 

0.305770 

C. 388301 

1.224206 

0.946859 

1.016690 

0.987254 

0.999903 

1.785605 

10623.30 

39 

0*514500 

0.790865 

0.327538 

0.386308 

1.235104 

0.949132 

1.017682 

0.983353 

0.999897 

1.830152 

10568.77 

40 

0*545002 

0.807730 

0.350921 

C. 384491 

1.246422 

0.951642 

1.018706 

0.978229 

0.999891 

1.877G33 

10519.07 

41 

0.577029 

0. 82 5 16 l 

0.376134 

0.383045 

1.257732 

0.954415 

1.019750 

0.971557 

0.999386 

1.926093 

10479.50 

42 

0.610657 

0.843101 

0.403428 

C. 382190 

1.268552 

0.957478 

1.020796 

0.962921 

0.999883 

1.977X30 

10456.11 

43 

0.645966 

0.861471 

0.433124 

0.382209 

1.278272 

0.960861 

1.021816 

0.951782 

0.999882 

2.C29851 

10456.63 

44 

0.683041 

0.880166 

0.465666 

0.383495 

1.286045 

0.964591 

1.022764 

0.937430 

0.999885 

2.083814 

10491.80 

45 

0.721970 

C. 899051 

0.501727 

0.386643 

1.290601 

0.968694 

1.023562 

0.919871 

0.999893 

2.138323 

10577.95 

46 

0.762845 

0.917951 

0.542417 

0.392653 

1.289906 

0.973198 

1.024073 

0.894530 

0.999908 

2.192255 

10742.35 

47 

0.305764 

0.936643 

0.58976 8 

0.403395 

1.280431 

0.978080 

I. 024018 

0.861893 

0.999929 

2.243710 

11036.25 

48 

0*850829 

0.954823 

0.648037 

0.422976 

1.255431 

0.983344 

1.022761 

0.815262 

0.999955 

2.289098 

11571.94 

49 

0.898148 

0.972043 

0.727746 

0.462565 

1.200636 

0.988891 

1.018596 

0.740087 

0.999979 

2.320998 

12655.05 

50 

0.947832 

0.987544 

0.858754 

0.564260 

1.086472 

0.994491 

1.010363 

0.582548 

0.999996 

2. 325834 

15437.24 

51 

1.000000 

1.000000 

0.986765 

1.00G0C0 

1.000000 

1.000000 

1.000000 

0.0 

1.000000 

2.363807 

27358.40 



Listing of the Unit 6 Output Data for the 1408 Orbiter 7-Species Sample Case 


FREE FLIGHT 140B ORBITER ALT=245K FT. M=26.9 ALPHA=30, 7-SPECIES 


GINPUT 

ALT = 245000.0000000000 

0.0 

1.000000000000000 
35.00000000000000 
-l.OOOOOOCCOOOOOOO 
361 .4800000000000 
1.050000000000000 
IUN= 19,JFAC= 

9999, NI TM I N = 

5 

GEND 


, BRAO= 2.3608330CQ000000 


» CC FAC- 0.0 

t HANGLE= lO.OOOOOOCOOCKOOO 
» S I GM= 0.6999999880790710 
? ShFAC- -1.000000000000000 
» UF AC = 0.5000000000000000 
,XLE= 1 .399999618530273 
1 » KEND= 

3tNITPNI= 


9CAINF= 0.0 i CAT= 

,CONVRG= 0. 99999979138374320-02, DS= 0. 
, PRNTC I = C.O ,RINF: 

, SITEST= 0. 99999990197829900-04, SMALLT: 


1.000000000000000 ,CAW= 

2 000000000000000 , DS MAX= 

: 0. 86725102799999990-07, SENO= 
0. 999999 429041 0541 D-06,SSFAC= 


, TB= 246C.OOOOOOOOCCOO 
, U INF= 25100.00000000000 
, XNSO= 0.1165999770164490 


1,KPLTTP= 
3 , NS = 


C,KTWAL= 
6 ,NS I = 


, THINI = -1, 
, WVF AC= 0. 
,IE= 

0 , NAN= 
6,NSPRF= 


OOOOOCOOOCOOOOO 

2500000000000000 

51,IEND= 

-2 , MDATA= 
0,NTSH= 


, T INF= 

, XKETA= 

6,1 GFQM= 3, 

1,NITMAX= 

20 ,NTTHA= 


L3G RATES MATCH 6 SPECIE BLOTTNER-S AND! A 


NR 



REACTION 



CRO 

EXP(CRO) 

1 

02 

Ml 

= 0 

0 

Ml 

42.7302394 

0.36100 

19 

2 

N2 

M2 

= N 

N 

M2 

39.7962713 

0.1920D 

18 

3 

N2 

N 

= N 

N 

N 

52.0799804 

0.41 500 

23 

4 

NO 

M3 

= N 

G 

M3 

47.4304680 

0. 39700 

21 

5 

NO 

0 

=02 

N 


21.8801470 

0.3180D 

10 

6 

N2 

0 

= NG 

N 


31.8431487 

0.67500 

14 

7 

N 

0 

= N0 + 

EL 


22.9238182 

0.9C30D 

10 




ALPHSB ( 

7, 

10) 




NR 

ALSUB 

NR 

Cv 

02 

NO N N0+ N2 

Ml 

1 

1.0 


1 

0. 

1. 

0. 0. 0 

. 0. 

1. 

2 

1.0 


2 

0. 

0. 

0. 0. 0 

1. 

0. 

3 

1.0 


3 

c. 

0. 

0. 1. 0 

1. 

0. 

4 

1.0 


4 

c. 

0. 

1. 0. 0 

. 0. 

0. 

5 

1.0 


5 

1. 

0. 

1. 0. 0 

. 0. 

0. 

6 

1.0 


6 

1. 

0. 

0. 0. 0 

1. 

0. 

7 

1.0 


7 

1. 

0. 

0. 1. 0 

. 0. 

c. 


CR1 

CR2 

ORO 

EXP(ORO) 

DR1 

0R2 

59400.0 

-1.0 

35.6407165 

0.3010D 

16 

0.0 

-0.5 

113100.0 

-0.5 

36.9275392 

0.1D90D 

17 

0.0 

-0.5 

1131G0.G 

-1.5 

49.1958541 

0.2320D 

22 

0.0 

-1.5 

75600.0 

-1.5 

46.0616522 

G.1010D 

21 

0.0 

-1.5 

19700.0 

1.0 

27.5933192 

0 .96300 

12 

360C.0 

0.5 

37500.0 

0.0 

30.3390713 

0.1500D 

14 

0.0 

0.0 

32400.0 

0.5 

44.3369034 

0.1800D 

20 

C.O 

-1.0 


M2 M3 EL 

0 . 0 . 0 . 

1 . 0 . 0 . 

0. 0. 0. 

0 . 1 . 0. 

0. 0. 0. 

0 . 0 • 0 * 

0. C. 0. 



NR BETSU3 

1 2.0 

2 2.0 

3 2.0 

4 2.0 

5 1.0 

6 1.0 

7 1.0 


BETAS8( 7,10) 

NR 0 C2 NO 

1 2 . 0 . 0 . 

2 0 . 0 . 0 . 

3 0. 0. 0. 

4 1 . 0 . 0 . 

5 0. i. 0. 

6 0 . 0 . 1 . 

7 0. 0. C. 


N NO* N2 

0 « 0 . 0 . 

2. 0. 0. 

3. 0. 0. 

1 . 0 . 0 . 

1 • 0 . 0 . 

1 . 0 . 0 . 

0. 1. 0. 


Ml 

L. 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 


M2 

0 . 

1 . 

0 . 

0 . 

0 . 

0 . 

0 . 


M3 

0 . 

0 . 

0 . 

1 . 

0 . 

0 . 

0 . 


EL 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

1 . 


ZSU8 ( 4, 6) 



0 

02 

NO 

N 

N0 + 

N2 

Ml 

25.0 

9.0 

1.0 

1.0 

0.0 

2.0 

M2 

1.0 

l.C 

l.C 

0.0 

0.0 

2.5 

M3 

20.0 

1.0 

20.0 

20.0 

0.0 

1.0 

EL 

0.0 

0.0 

0.0 

G.O 

1.0 

0.0 


GAMMPL ( 

7, 6) 





1 

2. 

0. 

0. 

G. 

c. 

0. 

2 

0. 

0 • 

0. 

2. 

c. 

0. 

3 

0. 

0. 

0. 

2. 

c. 

0. 

4 

1. 

0. 

0. 

1. 

c. 

0. 

5 

0. 

1. 

0. 

1. 

c. 

0. 

6 

3. 

0. 

1. 

1. 

0. 

0. 

7 

0. 

0. 

0. 
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THIN SHOCK LAYER NO WALL SLIP NO SHOCK SLIP CAT WALL NO STEPS IN Y= 51 NO STEPS IN S* 6 S STEP S1ZE=0.200 
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0.0742 0.0674 0.1433D 05 0.65940 03 0.1045D 06 0.2510D 05 0.8673D-07 0.5464D 02 1 


**** FREE FLIGHT 1408 ORBITER ALT=245K FT. M=26.9 ALPHA=30, 7-SPECIES **+* 
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0.999612 

1.004587 

0.113569 

1.000000 

0.413661 

27603.07 

51 

l • 000000 

1.000000 

0.999398 

1.000000 

1.000000 

l. 000000 

1.000000 

0.0 

1.000000 

0.457174 

32616.88 



N 

y/RN 

0 


02 

NC 

N 


N0+ 

N2 


E-/CC 

Y IN 

Y CM 

1 

0.0 

0.0 


0.234560 00 

O.C 

0.0 


0.0 

0.76544D 

00 

0.0 


0.0 

0.0 

2 

0.00022 

0.30433D-01 

0.19743D 00 

0.1 2735D— 01 

0.28942D-02 

0.35064D-04 

0.75648D 

00 

0.264820 

13 

0.00615 

0.01561 

3 

0.00044 

0. 554970-01 

0 . 1671 ID 00 

0.227350-01 

0. 57487D- 

■02 

0. 65474D-04 

0.748850 

00 

0.37949D 

13 

0.01260 

0.03200 

4 

0.00068 

0 • 7726 80- 

>01 

0.14115D 00 

0 .307130—01 

0.89935D-02 

0.943270-04 

0.741780 

00 

0.451550 

13 

0.01938 

0.04921 

5 

0.00094 

0.965760- 

■01 

0.11856D 00 

0.369 710— Cl 

0.12 840D- 

■01 

0 • 12292D-03 

0.73493D 

00 

0.506210 

13 

0.02649 

0.06729 

6 

0.00120 

0.113840 

00 

0.98833D-01 

0.41692D-01 

0. 17417D— 01 

0.15199D-03 

0.72806D 

00 

0.5 528 3D 

13 

0.03396 

0.08626 

7 

0.00148 

0.12932D 

00 

0. 81630D-0 1 

0.45021D-C1 

0.22809D- 

■01 

0.182040-03 

0.72104D 

00 

0.595790 

13 

0.04181 

0.10619 

8 

0.00177 

0.14317D 

00 

0 .6671 8D-01 

0.47091D-C1 

0.29072D- 

■01 

0. 213470-03 

0.71373D 

00 

0.63750D 

13 

0.05004 

0.12711 

9 

0.00207 

0.155520 

00 

0.53904D-01 

0.48037D-C1 

0. 36235D- 

-01 

0.24660D-03 

0.706050 

00 

0.679410 

13 

0.05869 

0.14908 

10 

0.00239 

0.166470 

00 

0.43C14D-01 

0 .48000D- 01 

0.443C4D- 

■01 

0.281730-03 

0.697930 

00 

0.72246D 

13 

0.06777 

0.17214 

11 

0.00273 

0. 176 1 CO 

00 

0.338 76D- 0 1 

0.471300-01 

0. 53 2660- 

■01 

0. 319090-03 

0.68931D 

00 

0.76725D 

13 

0.07731 

0.19636 

12 

0.00308 

0.1 845 ID 

00 

0.26318D-01 

0.455800-01 

0.630860- 

■01 

0* 35890D-03 

0.680150 

00 

0.81418D 

13 

0.08732 

0.22179 

13 

0.00345 

0.191780 

00 

0 .201650-01 

0 .435060— Cl 

0.737120-01 

0.401310-03 

0.67044D 

00 

0. 863440 

13 

0.09783 

0.24849 

14 

0.00384 

0.19802D 

00 

0. 152400-01 

0.41062D-01 

C.85080D- 

-01 

0. 446420-03 

0.66016D 

00 

0.91512D 

13 

0.10887 

0.27652 

15 

0.00425 

0 .2033 ID 

00 

0.113670-01 

0.3 8390D- 01 

0.97 108D-01 

0.494270-03 

0. 649330 

00 

0.96915D 

13 

0.12046 

0.30596 

16 

0.00468 

0.207770 

00 

0.837720-02 

0.35620D-C1 

0. 109710 

00 

0 • 54485D-03 

0.63798D 

00 

0. 102 540 

14 

0.13263 

0.33687 

17 

0.00513 

0.21 149D 

00 

0.61 131D-02 

0.32865D-01 

0.12277D 

00 

0 • 59306D-03 

0.62616D 

00 

0. 108360 

14 

0.14540 

0.36933 

18 

0.00561 

0.21455D 

00 

0. 443130-02 

0.302140-01 

0. 136 2 ID 

00 

0.65378D-03 

0.613940 

00 

0.11434D 

14 

0.15882 

0.40340 

19 

0.00610 

0 .2 1706 D 

00 

0.32058D-02 

0.27737D-01 

0.14989D 

00 

0.711790-03 

0.60139D 

00 

0.12045D 

14 

0.17291 

0.43919 

20 

0.00663 

0.21910D 

00 

0.232940-02 

0. 254 81D- Cl 

0.16371D 

00 

0.771830-03 

0.58861D 

00 

0.12665D 

14 

0.18770 

0.47676 

21 

0.00717 

0.22C73D 

00 

0 • 17138D-02 

0.23474D-C1 

0.177550 

00 

0. 83361D-03 

0.57570D 

GO 

0.132890 

14 

0.20323 

0.51621 

22 

0.00775 

0.22202D 

00 

0. 12883 D- 02 

0.21728D-01 

0.19127D 

00 

0.896780-03 

0. 562790 

00 

0.139130 

14 

0.21954 

0.55763 

23 

0.00835 

0.223040 

00 

0 . 99 837D-0 3 

0.202390-01 

0.20476D 

00 

0. 960970-03 

0.55001D 

00 

0.14532D 

14 

0.23666 

0.60112 

24 

0.00899 

0.223820 

00 

0 • 80 312D- 03 

0.189970-01 

0.217800 

00 

0. 102580-02 

0.53748D 

00 

0.1 51430 

14 

0.25464 

0.64679 

25 

0.00965 

0.22441D 

00 

0.672800-03 

0. 179830-01 

0.23050D 

00 

0.1G908D-02 

0.52535D 

00 

0.15743D 

14 

0.27352 

0.69474 

26 

0.01035 

0.22484D 

00 

0.58650D-03 

0.171 790- Cl 

0.24250D 

00 

0.1 1557D-02 

0.51374D 

00 

0.163270 

14 

0.29334 

0.74509 

27 

0.01109 

0.22513D 

00 

0.52992D-03 

0. 16563D-01 

0.25375D 

00 

0.122010-02 

0.50281D 

00 

0.168940 

14 

0.31415 

0.79795 

28 

0.01186 

0.225310 

00 

0 . 49360D-03 

0.161180-01 

0.26412D 

00 

0 . 1 2836D-02 

0.49267D 

00 

0.17440D 

14 

0.33601 

0.85346 

29 

0.01267 

0.22540D 

00 

0.47 148D-03 

0.15828D-01 

0.273510 

00 

0.134580-02 

0.48344D 

00 

0.179640 

14 

0.35896 

0.91175 

30 

C. 01352 

0.22540D 

00 

0.4 59850-03 

0 • 1 56 83D-C1 

0.28 1820 

00 

0.140650-02 

0.47524D 

00 

0.184650 

14 

0.38305 

0.97295 

31 

0.01441 

0 • 2253 ID 

00 

0.45654D-03 

0.1 5676D-01 

0.28894D 

00 

0.146550-02 

0.468150 

00 

0.189410 

14 

0.40835 

1.03720 

32 

0.01535 

0.22515D 

00 

0.46047D-03 

0.158C4D-C1 

0.25481D 

00 

0. 152240-02 

0.462250 

00 

0.193900 

14 

0.43491 

1.10468 

33 

0.01634 

0.224920 

CO 

0.47 124D-03 

0.1 60 71 D— 01 

0.299390 

00 

0.1 5771D-02 

0.457580 

00 

0.198100 

14 

0.46280 

1.17552 

34 

0.01737 

0.22460D 

00 

0.489040-03 

0.16482D-C1 

0.30263D 

00 

0.162920-02 

0.45416D 

00 

0.20199D 

14 

0.49209 

1.24991 

35 

0.01846 

0.22420D 

GO 

0.5 1451D-03 

0.170500-01 

0.304540 

00 

0.167850-02 

0.452010 

00 

0.2055 ID 

14 

0.52284 

1.32801 

36 

0.01960 

0.223710 

00 

0.548760-03 

0 • 1 7790D-C1 

0.305130 

00 

0.172450-02 

0.45110D 

00 

0.20860D 

14 

0.55513 

1.41003 

37 

0.02079 

0.223 110 

CO 

0. 593470-03 

0.187270-01 

0.304410 

00 

0. 176630-02 

0.451400 

00 

0.2 11 15D 

14 

0.58903 

1.49614 

38 

0.02205 

0.22238D 

00 

0. 651150-03 

0.1 9889D— 01 

0.30242D 

00 

0.180280-02 

0.45286D 

00 

0.21298D 

14 

0.62463 

1.58656 

39 

0.02337 

0.221510 

00 

G.72556D-C3 

C. 213180-01 

0.299190 

00 

0.183210-02 

0.455430 

00 

0.21385D 

14 

0.66201 

1.68150 

40 

0.02475 

0 .22 045 D 

00 

0 • 82264D-0 3 

0 .2 3068D-01 

0.294710 

00 

0.185160-02 

0 • 4591 OD 

00 

0.21341D 

14 

0.70125 

1.76118 

41 

0.02621 

0.219160 

00 

0.952460-03 

0. 2 52C9D— C 1 

0.288960 

00 

0 • 1 8570D-02 

0.463860 

00 

0.211180 

14 

0.74246 

1.88585 

42 

0.02773 

0.217570 

00 

0 • 1 1337D-0 2 

0.27835D-01 

0.281830 

00 

0. 1 8429D-02 

0.46978D 

00 

0.206520 

14 

0.70573 

1.99576 

43 

0.02934 

0.2156CD 

00 

0 • 1404 ID- 02 

0.310610-01 

0.27311D 

00 

0.18019D-02 

0.47703D 

00 

0.19862D 

14 

0.83116 

2.11116 

44 

0.03102 

0.21308D 

00 

0. 184810-02 

C. 35017D-C1 

0.26242D 

GO 

0. 1 7246D-02 

0.48591D 

00 

0.186540 

14 

0.87887 

2.23233 

45 

0.03279 

0.209770 

00 

0.266560-02 

0.398180-01 

0.249170 

00 

0. 160070-02 

0.49698D 

00 

0.16937D 

14 

0.92896 

2.35955 

46 

0.03465 

0.205180 

00 

0 .435560- C2 

0.454480-01 

0.23237D 

00 

0.14205D-G2 

0.511230 

00 

0.14640D 

14 

0.98155 

2.49314 

47 

0.03660 

0.198250 

00 

0 .819750-02 

0 • 5 1474D-C1 

0.21050D 

00 

0. 117840-02 

0.530400 

00 

0.117600 

14 

1.03678 

2.63341 

48 

0.03864 

0. 1 865 2D 

00 

0.175060-01 

0* 56329D- Cl 

0.18118D 

00 

0. 87902D-03 

0.557590 

00 

0.845170 

13 

1.09476 

2.78069 

49 

0.04079 

0.16368D 

00 

0.40 8 16D- 0 1 

0 .5 5796D-0 1 

0.14C740 

00 

0.54419D-03 

0.598420 

00 

0.501300 

13 

1.15565 

2.93534 

50 

0.04305 

0.113570 

00 

0.99144D-01 

0.40730D-01 

0.835630-01 

0.22320D-03 

0.662770 

00 

0.19801D 

13 

1.21951 

3.09772 

51 

0.04542 

0.0 


0.234560 OC 

0.0 

0.0 


0.0 

0.76544D 

00 

0.0 


1.28670 

3.26822 


K =1, I = 2, S = 0,200, NITER = 1, DIFI = 8.413D-01 3.676D-C3 1. 8990-03 4,3410-03 4.207D-C3 5.070D-03 4.7830-03 3. 3900-03 
K =1, I = 2, S = 0.200, NITER = 2, DIFI = 2.7540-01 5.2500-02 2. 2130-01 2.181D-01 1. 3720-01 2.0320-01 3.1410-01 1.3420-01 
K =1, I = 2, S = 0.200, MTER = 3, DIFI = 5.3610-02 3.7320-02 8.864D-02 9.614D-02 8.5270-02 5.4260-0 2 2.8020-01 5.619D-02 
K =1, I = 2, S = 0.200, NITER = 4, DIFI = 7.6750-03 1.1410-02 8.5640-03 2.143D-02 1.7070-02 2.713D-02 6.5310-02 2.270D-02 
K = 1 , I - 2, S = 0.200, NITER = 5, DIFI = 1.3320-03 2.779D-C3 2.090D-02 7.060D-03 1.C28D-02 1.538D-02 3.311D-02 2. 2360-02 
K =1, I = 2 , S = 0.200, NITER = 6, DIFI = 2.5850-03 1.780D-C3 8.810D-03 5.459D-03 6. 0910-03 3.2590-03 2.0250-02 6.7530-03 


***+ FREE FLIGHT 140B ORB ITER ALT=245K FT. M=26.9 ALPHA=30, 7-SPECIES **** 


S X R YSH YSHP XSH RSH NO ITER NITTOT NTDT I K 

0.200C00 0 . C 25602 0.1978C6 0.059564 0.141461 -0.032123 0.212497 6 36 36 2 1 

OS CF HEAT ST/SN COF COP CDTOT PW4LL TWALL PW/PO 

0.200000 0.C3978G 0.032161 0.067276 0.002439 1.718129 1.720568 0.876726 2460.000000 0.994607 

YSHP ( S YSHP ( S + DS/2 NEW YSHP ALPHAIS+DS/2 PHHS + DS/2 KAPPAIS KAPPAtS+DS/2 
O.COOOOO O.OCGOOO 0,141461 1.425378 1.425378 0.890295 0.652402 

USH VSH TSH RSH PSH VPG 

0.135534 -0. 099667 0.311504 9.940396 0.863787 0.0 

3401.91 -2501.64 32555.73 

1 80 86 . 52 


o K =1, I = 3, S = u.403, NITER = 1, DIFI = 3.619D-01 8.4280-02 1.6890-01 3.836D-01 1.486D-01 2.7590-01 3.2570-01 1.051D-01 

K =1, I = 3, S = 0 . 4 L 0 , NITER = 2, OIFI = 7.375D-01 1. 0070-01 1.4450-01 2.724D-01 1.4610-01 3.C92D-TU 1.5800-01 5.3170-02 

K =1, I = 3, S = 0.400, NITER = 3, DIFI = 2.248D-02 7.0290-02 8.153D-02 1.0530-01 1.277D-01 2.5360-01 1.7400-01 5.0130-02 

K =1, I = 3, S = 0.400, NITER = 4, DIFI = 1.424D-02 3.4530-02 3.0410-02 5.8360-02 8.122D-02 1.971D-02 2. 8940-02 6.8670-03 

K =1, I = 3, S = 0.400, NITER = 5, DIFI = 4.845D-03 2.341D-03 5.8580-03 7.L74D-C3 2.046D-02 1.1600-02 2.5570-02 4.5960-03 

K =1 , I = 3 , S ~ U.400, NITER = 6, DIFI = 5.7830-04 2.1500-03 3.936D-03 2.4270-03 3.5630-03 9.3720-03 1.5150-02 1.396D-03 


**** FREE FLIGHT 140B ORB I TER ALT=245K FT. M=26.9 ALPHA = 30, 7-SPECIES **** 


S X R YSH YSHP XSH RSH NO ITER NITTOT NTOT I K 

0.400000 0.082326 0.389258 0.086069 0.123584 0.000385 0.415592 6 42 42 3 1 

OS CF HEAT STAN CDF COP CDTOT P WALL TWALL PW/PO 

0.200000 0.014734 0.025134 0.052577 0.003576 1.679753 1.683329 0.809976 2460.000000 0.918882 

YSHP ( S YSHP ( S + DS/2 NEW YSHP ALPHA(S+DS/2 PHKS+DS/2 KAPPAIS KAPPA(S + DS/2 
0.000000 O.OCOCOO 0.123584 1.210361 1.210361 0.534291 0.459847 

USH VSH TSH PSH PSH VPG 

0.248794 -C. 096573 0.298852 9.763471 0.833382 0.0 

6244.73 -2474.19 31233.49 

17351.95 


601 


K =1, 

I 

= 

4, 

S = 

0.600 , 

NITER = 

U 

DIFI 

= 1 • 822D-0 1 

7.8750-02 

1.7910-01 

3.419D-01 

2.3510-01 

2.815D-01 

3.3390-01 

2.570D-01 

K »1, 

I 

= 

4, 

S = 

0.600, 

NITER = 

2, 

DIFI 

= 2.398D-01 

3.572D-02 

1. 3330-01 

1.4000-01 

1.819D-01 

2.0680-01 

3 • 62 ID- 01 

8.0530-02 

K =1, 

I 

= 

4, 

S = 

0.600, 

NITER = 

3, 

DIFI 

= 6.277D-02 

6. 209D-02 

5.996D— 02 

1.013D-01 

1.0130-01 

1.409D-01 

2.044 D— 01 

2. 9580-02 

K =1, 

I 

= 

4, 

S = 

0.600, 

NITER = 

4, 

DIFI 

= 1.211D-02 

1.946D-02 

1 .5 13D-02 

3.469D-02 

3. 9750-02 

4. 5890-02 

2.711D-02 

1. 0890-02 

K -1, 

I 

H 

4, 

S = 

0.600, 

NITER = 

5, 

DIFI 

= 2.2530-03 

3 • 824D—03 

1.1370-02 

7. 9020-03 

8.770D-03 

1.4710-02 

1.7860-02 

7. 9020-03 

K =1, 

I 

= 

4, 

S = 

0.600, 

NITER = 

6 , 

DIFI 

= 1.5S7D-03 

1. 8520-03 

2. 530D-03 

2.6490-03 

4. 133D-03 

2.8860-03 

8.4210-03 

1.158D-03 


**** FREE FLIGHT 140B ORBITER ALT=245K FT. M=26.9 ALPHA=30, 7-SPECIES **** 


S X R YSH YSHP XSH RSH NO ITER NITTOT NTOT I K 

0.600000 0.153125 0.576231 0.096495 -0.019326 0.064367 0.614090 6 48 4B 4 1 

OS CF HEAT STAN CDF CDP CDTOT PWALL TWALL PW/PO 

O.2OC00O 0.020479 0.023084 0.048289 0.005478 1.584793 1.590271 0.715207 2460.000000 0.811371 

YSHP ( S YSHP I S+DS/2 NEW YSHP ALPHA(S+DS/2 PHKS+DS/2 KAPPAIS KAPPAIS+DS/2 


0 

.000000 


0 

.000000 

-0.C19326 

1. 

114267 1. 

114267 0 

1.398202 

0.354594 






USH 



VSH 


TSH 


RSH 

PSH 

VPG 






0.396758 


-0.096763 

0.278381 

9.472317 

0.752913 0.0 

i 






9958. 

63 


-2428 

.76 

29094 

.02 















16163 

.35 









K =1, 

I = 5, 

S 

_ 

0.800, 

NITER 

= 1» 

DIFI 

= 5 .6 71D-02 

6. 6390-02 

4.649D-02 

1.0180-01 

1. 7630-01 

1.2760-01 

2.1770-01 

5.9140-02 

K =1, 

I = 5, 

S 

= 

0.800, 

NITER 

- 2, 

01 F I 

= 6.4540-02 

4.236D-02 

6. 128D-02 

1.2630-01 

9.684D-02 

7.138D-02 

1.5940-01 

3.263D-02 

K =1, 

I = 5, 

S 


0.800, 

NITER 

= 3, 

DIFI 

= 6.1530-03 

6.763D-03 

1. 0090-02 

2.8800-02 

2.0580-02 

2.870D-02 

3.909D-02 

3.2550-03 

K =1, 

I = 5, 

S 

= 

0.000, 

NITER 

= 4, 

DIFI 

= 1.376D-03 

2.0730-03 

7.925D-03 

9.6890-03 

8.7150-03 

5.450D-03 

1.946D-02 

4.4350-03 


**** FREE FLIGHT 140B ORBITER ALT=245K FT. *=26.9 ALPHA=30, 7-SPECIES **** 


S X R YSH YSHP XSH RSH NO ITER NITTOT NTOT I K 

0.300000 0.241411 0.755630 0.101063 0.C65006 0.152226 0.803166 4 52 52 5 1 

OS CF HEAT STAN COF CDP CDTOT PWALL TWALL PW/PO 

0. 20000 C 0.021277 0.021063 0.044060 0.007456 1.488738 1.496195 0.645542 2460.000000 0.732339 

YSHP ( S YSHP ( S+DS/2 NEW YSHP ALPHA(S + DS/2 PHKS+DS/2 KAPPAIS KAPPAIS+DS/2 
-0.000000 O.OCOOOO 0.065006 1.033441 1.033441 0.309931 0.278565 


USH 

VSH 

TSH 

RSH 

PSH 

VPG 

0.476350 

-0.095165 

0.261554 

9.228450 

0.689214 

o 

• 

o 

11956.40 

-2388.64 

27335.38 

15186.33 






K 

= 1. 

I = 

6* 

S 

= 

1.000, 

NITER 

= 

1» 
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0.47269D 

00 

0.111180 

14 

1.46912 

3.73156 

37 

0.05502 

0.247520 

00 

0 • 338130-03 

0 • 13438D-C1 

0*255840 

GO 

0. 117860-02 

0.48163D 

00 

0.11232D 

14 

1.55884 

3.95945 

38 

0.05835 

0. 243720 

00 

0.434450-03 

0. 145850-01 

0.24866D 

00 

0.119330-02 

0.491410 

00 

0.113420 

14 

1.65305 

4.19874 

39 

0.06184 

0.239690 

00 

0.492570-03 

0.159640-01 

0.240720 

00 

0.120750-02 

0.501920 

00 

0.11446D 

14 

1.75196 

4.44999 

40 

0.06551 

0.235420 

00 

C .566370-0 3 

0. 176360-01 

0.232080 

00 

0.122090-02 

C.513C80 

00 

0.115390 

14 

1.85583 

4.71380 

41 

0.06936 

0.23C890 

00 

0.66176D-03 

0.196890-01 

0.22272D 

00 

0 • 12326D-02 

0.524810 

00 

0.11610D 

14 

1.96489 

4.99081 

42 

0.07340 

0.226040 

00 

C .788070-03 

0.222480-01 

0.212600 

00 

0.124070-02 

0.537C80 

00 

0.11637D 

14 

2.07940 

5.28166 

43 

0 .07764 

0.22D8CD 

00 

0.96C89D-03 

0.25492D-C1 

0.201630 

00 

0.124140-02 

0.5498 8D 

00 

0.115830 

14 

2.19963 

5.58706 

44 

0.08210 

0.215C8D 

GO 

C. 120890-02 

0.296710-01 

0.189610 

00 

0. 122860-02 

0.563190 

00 

0.113880 

14 

2.32588 

5.90773 

45 

0.08678 

0.20872D 

00 

0.159450-02 

0.351120-01 

0.176280 

00 

0.119240-02 

0.577100 

00 

0.109560 

14 

2.45844 

6.24443 

46 

0.09169 

0.201470 

00 

0.22835D-02 

0.42181D-01 

0.16113D 

00 

0.111780-02 

0.59182D 

00 

0.101510 

14 

2.59762 

6.59797 

47 

0.09685 

0 • 1 928 60 

00 

0.380660-02 

0.5 1061 D- 01 

0.14331D 

00 

0.98579D-03 

0.607970 

00 

0.880870 

13 

2.74377 

6.96918 

48 

0.10227 

0.181 780 

00 

0.805120-02 

0.609540— Cl 

0.121320 

00 

0. 779040-03 

0 .6271 ID 

00 

C. 680320 

13 

2.89723 

7.35895 

49 

C. 10795 

0.16442D 

00 

0.21941D-01 

0.67578D-C1 

0.92658D’ 

-01 

0. 49917D-03 

0.65290D 

00 

0.421930 

13 

3.05835 

7.76822 

5C 

0.11393 

0 • 1 2 53 ID 

00 

0.703440-01 

0.568650-01 

0.537270-01 

0. 196830-03 

0.693560 

00 

0.159750 

13 

3.22754 

8.19794 

51 

0.12020 

0.0 


0.234560 CO 

0.0 

0.0 


0.0 

0.765440 

00 

0.0 


3.40518 

8.64915 


Listing of the Unit 6 Output Data for the 31° Hyperboloid Binary-Gas Sample Case 


FREE FLIGHT HYPERBOLCID ALT=245K FT. M= 26.9 ALPHA=30, BINARY-GAS 


SINPUT 

ALT* 245000.0000000000 

0.0 

3.000000000000000 
43 .00000 C CO 000 000 
- 1.000000000000000 
36L. 4800000000000 
1.050000000000000 
I UN* 19,JFAC= 

9999, NITMI N= 

5 

&END 


, BRAD= 2.360833000000000 


,CCFAC= 0.0 

,H ANGLE* 31.00000000000000 
* S IGM* 0.6999999880790710 
» SWFAC= -1.000000000000000 
, UF AC= 0.5000000000000000 
t XL E= 1.399999618530273 
1 , KEND* 

3, NITKNI* 


» C AI NF= 0.0 ,CAT= 

, CONVRG* 0.99999979138374320-02, 0S= 0, 
, PRNTC I* 0.0 ,RINF= 

, S ITE ST* C .99999990 197 82990D-04, SMALLT= 


1.000000000000000 ,CAW* 

2 000000000000000 , DS MAX* 

= 0. 867251 02 7999 9 999 D- 07 , SEND* 

* 0. 999999429041 0541 D-06 ,SSFAC= 


, TB= 2460.000000000000 
t U I NF= 25100.00000000000 
i XNSO= 0.1165999770164490 


1 , KPLTTP* 
3 , NS* 


0 ,KTWAL= 
» NS I = 


, THI NI = -1. 

, WVF AC* 0. 
, I E= 

0 ,NAN= 
2,NSPRF= 


000000000000000 
2500000000000000 
51, I END* 

1, NDATA= 
0, NTSH= 


r TI NF= 

,XKETA= 

6,1 GEQM* 1, 

1,NITMAX* 

20, NTTWA* 


LOG 

RATES MATCH 

6 SPECIE BLOTTNER-SANDIA 








NR 


REACTION 

CRO 

EXPICRO) 

CR1 

CR2 

ORO 

EXPIDRO) 

0R1 

0R2 

1 

02 02 

*0 0 

02 44.9274640 

0.3249D 20 

59400.0 

-1.0 

37.8379411 

0.27090 17 

0.0 

-0.5 

2 

02 0 

= 0 0 

0 45.9491153 

0.9025D 20 

59400.0 

-1.0 

38.8595923 

0.75250 17 

0.0 

-0.5 



ALPHSB ( 2, 

2) 








NR 

ALSUB 

NR G 

02 








1 

1.0 

1 0. 

2. 








2 

1.0 

2 1. 

1. 










BETASBt 2, 

2) 








NR 

BETSUS 

NR 0 

02 








1 

2.0 

1 2. 

1. 








2 

2.0 

2 3. 

0. 









GAMMPL ( 2, 2) 

1 2 . 0 . 

2 2 . 0 . 

GAMMMM 2, 2) 

1 0 . 1 . 

2 0 . 1 . 


VSREF * 0 • 193 320 650-04 


VS INF 


0.4645 130 9D— 06 



K =1, 

I 

= 

It 

S 

3 

0.0 

f 

NITER 

= 

It 

DIFI 

= 

4.253D 01 

2.5L9D 00 

0.0 

1.000D 00 

K =1, 

I 

= 

It 

S 

= 

0.0 

f 

NITER 

= 

2, 

01 F I 

= 

5.545D-01 

2.0080 00 

4.533D-0 1 

1.442D 04 

K =si, 

I 

= 

It 

S 

- 

0.0 

f 

NITER 

= 

3, 

DIFI 

= 

3.5280-01 

2.539 D- 01 

2.349D-01 

2. 5420 01 

K =1, 

I 

- 

It 

s 

- 

0.0 

t 

NITER 

= 

4, 

DIFI 

= 

6.529D-02 

3.417C-01 

5.856D-02 

9.870D 00 

K =1, 

I 

= 

It 

s 

= 

0.0 

f 

NITER 

= 

5, 

DIFI 

= 

1.067D-01 

3.887C-01 

2 .9840-0 1 

4.2510 01 

K =1, 

I 

= 

1. 

s 

- 

0.0 

f 

NITER 

= 

6, 

DIFI 

= 

9 .0820-02 

2. 3760-01 

3. 8920-01 

7.778D 00 

K =l f 

I 


It 

s 

= 

0.0 

t 

NITER 

= 

7, 

DIFI 

= 

4.070D-02 

3.471D-C2 

1.179D-01 

1.504D 00 

K =1, 

I 

= 

It 

s 

3 

0.0 

f 

NITER 

= 

8, 

DIFI 

= 

2 .9240-02 

3 .6 17D-02 

1 .8780-02 

9 .3 560-01 

K =1, 

I 

= 

It 

s 

= 

0.0 

f 

NITER 

= 

9, 

DIFI 

= 

5 .0700-02 

3.601D-C2 

6. 0210-02 

1.115D 00 

K = 1, 

I 

- 

1. 

s 

= 

0.0 

t 

NITER 

= 

10, 

DIFI 

= 

4.184D-02 

2.7G9D-Q2 

4.974D-02 

9 .0680—01 

K = 1, 

I 


It 

s 

= 

0.0 

t 

NITER 

= 

lit 

DIFI 

= 

3 .37 ID-02 

2.058D-02 

3.6940-02 

6.673D-01 

K =1, 

I 


It 

s 

= 

0.0 

f 

NITER 

= 

12 t 

DIFI 

= 

2 .8780-02 

1.7450-02 

3 .0180-02 

5 .3390-01 

K *1, 

I 

= 

1. 

s 

= 

0.0 

t 

NITER 

= 

13, 

DIFI 

= 

2 .4790-02 

1. 512 D- 02 

2.629D-02 

4.379D-01 

K =1, 

I 

= 

It 

s 

= 

0.0 

f 

NITER 

= 

14, 

DIFI 


2*1 16D-02 

1.279D-02 

2.285D-02 

3. 569D-01 

K =1, 

I 

- 

It 

s 

= 

0.0 

t 

NITER 

= 

15 , 

DIFI 

= 

1 .7910-02 

1.0670-02 

1 .9450-02 

2 .9080-01 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

16, 

DIFI 

= 

1.51 ID-02 

8. 9C8D-C3 

1.640D-02 

2.368D-01 

K = 1, 

I 

= 

It 

S 

8 

0.0 

f 

NITER 

= 

17, 

DIFI 

= 

1.272D-02 

7. 455 D- 03 

1. 3830-02 

1.934D-01 

K =1, 

I 

= 

1, 

s 

= 

0.0 

f 

NITER 

= 

18, 

DIFI 

* 

1. 0700-02 

6. 237 D- 03 

1 • 165D-02 

1 . 583D-01 

K = 1, 

I 

= 

It 

s 

3 

0.0 

t 

NITER 


19, 

DIFI 

= 

8. 9770-03 

5.207D-03 

9.800D-03 

L.297D-01 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

20, 

DIFI 

= 

7.5210-03 

4. 3400-03 

8.2210-03 

1.0650-01 

K = 1 , 

I 

= 

it 

s 

- 

0.0 

t 

NITER 

= 

21, 

DIFI 

- 

6 .2910-03 

3 .6150-03 

6.8850-03 

8 .7 50D-02 

K =1, 

I 

= 

It 

s 

= 

0.0 

f 

NITER 

= 

22, 

DIFI 

= 

5. 198D-03 

3. 0C8D-C3 

5.758D-03 

7 .2040-02 

K =1, 

1 

= 

It 

s 


0.0 

t 

NITER 

= 

23, 

DIFI 

= 

4 .0570-03 

2. 1980-03 

3.985D-03 

5.0480-02 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

24, 

DIFI 

= 

3. 7420-03 

2.1 33D-03 

3.638D-03 

4.678D-02 

K =1* 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

- 

25, 

DIFI 

= 

3.2 12D-C3 

1 • 893D-C3 

3.4110-03 

4.2 14D-02 

K =1, 

I 

= 

It 

s 

» 

0.0 

t 

NITER 

= 

26, 

DIFI 


2.663D-03 

1 . 582D-03 

2. 9810-03 

3.61 LD-02 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

27, 

DIFI 


2 • 199D-Q3 

1 . 304D-C3 

2.5290-03 

3.030D-02 

K =1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

28, 

DIFI 

= 

1.8260-03 

1 .0740-03 

2. 131 D- 03 

2.526D-02 

K =1, 

I 

= 

It 

s 


0.0 

t 

NITER 

= 

29, 

DIFI 


1 .5200-03 

8. 824D-C4 

1. 7860-03 

2.095D-02 

K *1, 

I 

= 

It 

s 

= 

0.0 

t 

NITER 

= 

30, 

DIFI 

- 

1 .2640-03 

7.213 D- 04 

1.4900-03 

1 .7290-02 

K =1, 

I 

= 

it 

s 

= 

0.0 

f 

NITER 

= 

31, 

DIFI 

= 

1.047D-03 

5.871D-04 

1 .2370-03 

1. 4180-02 

K =1, 

I 

= 

It 

s 

= 

0.0 

f 

NITER 

= 

32, 

DIFI 

= 

8 .6490-04 

4* 763D-04 

1. 0230-03 

1.1 59D-02 

K =1, 

I 

= 

It 

s 

- 

0.0 

r 

NITER 

= 

33, 

01 F I 

= 

7 .1200-04 

3.852D-C4 

8.423D-04 

9.435D-03 

UINF 



PINF 


TINF 



CAINF 

TB 

BRAD 

PR LE YSH 

0. 

2510 

05 

0. 

48676D- 

. 

o 

r-i 

o 

36148D 

03 

0 

.0 

0.24600 04 0.2361D 01 0.700 00 0.140 01 0.5766D-01 


THIN SHOCK LAYER NO WALL SLIP NO SHOCK SLIP CAT WALL NO STEPS IN Y= 51 NO STEPS IN S- 6 S STEP $IZE=0.200 

TW/TS EPS REYINF REYSH TREE UREF RREF PREF ITER 

0.0637 0.0613 0.1106D 05 0.65760 03 0.1147D 06 0.25I0D 05 0.86730-07 0.54640 02 1 


ALT 

0.2450 06 


**** FREE FLIGHT HYPERBOLOID 


ALT=245K FT. M=26.9 


AL PHA=30* BINARY-GAS 


**** 


s 

X 

R 

YSH 

YSHP 

0.0 

0.0 

0.0 

0.057656 

0.0 

DS 

CF 

HEAT 

STAN 

CDF 

0.200000 

0.0 

0.039524 

0.082447 

0.0 

YSHP < S 

YSHP ( S+DS/2 

NEW YSHP 

ALPHA ( S+DS/ 2 

PHIIS+ OS/2 

0.0 

o.ocoooo 

0.0 

1.471372 

1.471372 


XSH 

RSH 

NO ITER NITTOT NTOT 

I 

-0.057656 

0.0 

33 33 33 

1 

COP 

CDTOT 

PWALL TWALL 

PW/PO 

1.763935 

L. 763935 

0.881967 2460.000000 

1.000000 


KAPPA < S KAPP A ( S + DS/2 
1.000000 0.981643 


USH 

0.0 


VSH 

-0.105803 

-2655.66 


TSH RSH PSH VPG 

0.333258 9.404841 O.0E5758 0.0 

38214.38 


0.0 



N 

Y/YSH 

U/USH 

V/VSH 

T/TSH 

R/RSH 

P/PSH(APPR) 

P/PSH 

CA 

CAEQ 

XM 

T DEG R 

1 

0.0 

0.0 

0.0 

0.064374 

15.467829 

0.995721 

1.065372 

0.0 

0.000002 

0.0 

2460.00 

2 

0.004777 

0.041799 

0.000107 

0.082102 

11.344995 

0.995721 

1.065373 

0.069065 

0.000278 

0.0C0123 

3137.48 

3 

0.009792 

0.079597 

0.000491 

0.097529 

9.021547 

0.995722 

1.065374 

0.131751 

0.004413 

0.000506 

3727.02 

4 

0.015059 

0.114691 

0.001185 

0.111492 

7.503604 

0.995725 

1.065375 

0.190296 

0.027867 

0.001119 

4260.59 

5 

0.020588 

0.147769 

0.002219 

0.124411 

6.424345 

0.995729 

1.065378 

0.245887 

0.103508 

0.001945 

4754.29 

6 

0.026394 

0.179246 

0.003623 

0.136533 

5.613617 

0.995734 

1.065380 

0.299224 

0.265575 

0.002972 

5217.53 

7 

0.032491 

0.209382 

0.005425 

0. 148012 

4.980766 

0.995741 

1.065382 

0.350738 

0.502943 

0.004194 

5656.19 

8 

0.038892 

0.238355 

0.007656 

0.158947 

4.472651 

0.995750 

1.065383 

0.400706 

0.732528 

0.005606 

6074.06 

9 

0.045614 

0.266281 

0.010342 

0.169406 

4.055795 

0.995761 

1.065382 

0.449305 

0.878476 

0.007205 

6473.76 

10 

0.052671 

0.293241 

0.013513 

0.179443 

3.707887 

0.995774 

1.065377 

0.496632 

0.947201 

0.0C8992 

6857.30 

11 

0.060081 

0.319288 

0.017198 

0.189105 

3.413367 

0.995788 

1.065368 

0.542715 

0.976103 

0.010967 

7226.52 

12 

0.067862 

0.344453 

0.021426 

0.198444 

3.160953 

0.995805 

1.065353 

0.587523 

0.988411 

0.013128 

7583.43 

13 

0.076032 

0.368754 

0.026226 

0.207522 

2.942221 

0.995823 

1.065330 

0.630962 

0.993978 

0.015479 

7930.34 

14 

0.084610 

0.392197 

0.031633 

0.216410 

2.750747 

0.995844 

1.065298 

0.672086 

0.996676 

0.018023 

8269.96 

15 

0.093617 

0.414780 

0.037680 

0.225187 

2.581544 

0.995867 

1.065255 

0.713101 

0.9980 72 

0.020765 

8605.38 

16 

0.103075 

0.436495 

0.044406 

0.233943 

2.430701 

0.995892 

1.065198 

0.751373 

0.998836 

0.023710 

8939.99 

17 

0.113006 

0.457335 

0.051850 

0.242770 

2.295148 

0.995920 

1.065125 

0.787438 

0.999274 

0.026867 

9277.32 

18 

0.123433 

0.477291 

0.060056 

0.251758 

2.172493 

0.995950 

1.065033 

0.821021 

0.999536 

0.030245 

9620.79 

19 

0.134381 

0.496361 

0.069063 

0.260984 

2.060909 

0.995902 

1.064919 

0.851854 

0.999697 

0.033853 

9973.34 

20 

0.145877 

0.514549 

0.078910 

0.270504 

1.959036 

0.996017 

1.064780 

0.879696 

0.999799 

0.037696 

10337.14 

21 

0.157947 

0.531868 

0.089625 

0.280344 

1.865907 

0.996054 

1.064613 

0.904358 

0.999865 

0.041780 

10713.16 

22 

0.170621 

0.548342 

0.101224 

0.290487 

1.780882 

0.996093 

1.064413 

0.925726 

0.999907 

0.046110 

11100.77 

23 

0.183929 

0.5640C8 

0.113703 

0.300867 

1.703573 

0.996135 

1.064178 

0.943784 

0.999935 

0.050685 

11497.43 

24 

0.197902 

0.578915 

0.127035 

0.3L1364 

1.633765 

0.996180 

1.063905 

0.958624 

0.999954 

0.055499 

11898.58 

25 

0.212574 

0.593126 

0.141168 

0.321810 

1.571338 

0.996227 

1.063593 

0.970448 

0.999966 

0.060541 

12297.76 

26 

0.227980 

0.606715 

0.156023 

0.331997 

1.516193 

0.996277 

1.063239 

0.979559 

0.999975 

0.065798 

12687.07 

27 

0.244155 

0.619764 

0.171509 

0.341702 

1.468186 

0.996330 

1.062843 

0.986330 

0.999980 

0.071254 

13057.91 

28 

0.261140 

0.632369 

0.187523 

0.350704 

1.427087 

0.996387 

1.062406 

0.991174 

0.999984 

0.076893 

13401.93 

29 

0.278974 

0.644629 

0.203972 

0.358817 

1.392553 

0.996446 

1.061927 

0.994506 

0.999987 

0.082702 

13711.98 

30 

0.297699 

0.656651 

0.220781 

0.365907 

1.364131 

0.996510 

1.061407 

0.996705 

0.999989 

0.088677 

13982.92 

31 

0.317361 

0.668546 

0.237904 

0.371904 

1.341267 

0.996578 

1.060843 

0.998095 

0.999990 

0.094822 

14212.08 

32 

0.338006 

0.680426 

0.255336 

0.376805 

1.323338 

0.996651 

1.060235 

0.998937 

0.999991 

0.101150 

14399.35 

33 

0.359683 

0.692403 

0.273109 

0.380667 

1.309674 

0.996729 

1.059578 

0.999421 

0.999992 

0.107683 

14546.94 

34 

0.382443 

0.704588 

0.291295 

0.383595 

1.299592 

0.996813 

1.058865 

0.999684 

0.999992 

0.114451 

14658.86 

35 

0.406342 

0.717086 

0.310002 

0.385728 

1.292423 

0.996903 

1.058088 

0.999814 

0.999993 

0.121495 

14740.37 

36 

0.431436 

0.729993 

0.329367 

0.387218 

1.287531 

0.997001 

1.057235 

0.999862 

0.999993 

0.128859 

14797.31 

37 

0.457785 

0.743397 

0.349546 

0.388218 

1.284344 

0.997108 

1.056293 

0.999857 

0.999993 

0.136596 

14835.53 

38 

0.485451 

0.757378 

0.370710 

0.388872 

1.282359 

0.997223 

1.055244 

0.999806 

0.999993 

0.144760 

14860.50 

39 

0.514500 

0.772004 

0.393035 

0.389305 

1.281154 

0.997348 

1.054069 

0.999701 

0.999993 

0.153407 

14877.07 

40 

0.545002 

0.78733 v 2 

0 • <i 16704 

0.389630 

1.280379 

0.997485 

1.052745 

0.999511 

0.999993 

0. 162597 

14889.47 

41 

0.577029 

0.803414 

0.441908 

0.389948 

1.279735 

0.997634 

1.051245 

0.999180 

0.999993 

0.172391 

14901.62 

42 

0.610657 

0.820294 

0.468861 

0.390369 

1.278932 

0.997796 

1.049539 

0.998596 

0.999993 

0.18286C 

14917.71 

43 

0.645966 

0.838011 

0.497829 

0.391043 

1.277616 

0.997974 

1.047584 

0.997552 

0.999993 

0.194089 

14943.48 

44 

0.683041 

0.856594 

0.529190 

0.392217 

1.275240 

0.998167 

1.045327 

0.995659 

0.999994 

0.206195 

14988.35 

45 

0.721970 

0.876057 

0.563558 

0.394347 

1.270844 

0.998379 

1.042679 

0.992L58 

0.999994 

0.219363 

15069.71 

46 

0.762845 

0.896388 

0.602050 

0.398333 

1.262606 

0.998610 

1.039492 

0.985525 

0.999994 

0.233913 

15222.03 

47 

0.805764 

0.917514 

0.646914 

0.406094 

1.246941 

0.998861 

1.035465 

0.972505 

0.999995 

0.250484 

15518.63 

48 

0.850829 

0.939237 

0.703167 

0.422154 

1.216488 

0.999132 

1.029906 

0.945441 

0.999996 

0.270484 

16132.36 

49 

0.898148 

0.961086 

0.783315 

0.459144 

1.155816 

0.999418 

1.021075 

0.883076 

0.999998 

0.297423 

17545.92 

50 

0.947832 

C. 981973 

0.918610 

0.563235 

1.038886 

0.999707 

1.009357 

0.708268 

0.999999 

0.341581 

21523.68 

51 

1.000000 

1.000000 

1.002390 

1.000000 

1.000000 

1.000000 

1.000000 

0.0 

1.000000 

0.359847 

38214.38 


K =1, 

I = 

2, 

S = 

0.200, 

NITER = 

1, 

DIFI 

= 3.9240-02 

7.939D-02 

1. 9340-02 

8.0900-01 

K =1, 

r = 

2, 

S * 

0.200, 

NITER a 

2, 

OIF I 

= 4.5660-02 

8.7990-03 

5.1210-03 

1.3710-01 

K =1, 

i = 

2, 

S = 

0.200, 

NITER = 

3, 

DIFI 

= 3.3820-03 

5 .0310-03 

5.0920-03 

9.156D-02 

K =1, 

i ■= 

2, 

S = 

0.200, 

NITER = 

4, 

DIFI 

= 7.3820-04 

1.7 160-03 

2. 5210-04 

3.4510-03 


**** FREE FLIGHT HYPERBOLOID ALT=245K FT. M=26.<? ALPHA=30, BINARY-GAS **** 


S X R YSH YSHP XSH RSH NO ITER NITTOT NTOT I K 

0.200000 0 • G197C 9 0.198780 0.059531 0.018751 -0.038690 0.210333 4 37 37 2 i 

OS CF HEAT STAN CDF COP COTOT PWALL TWALL PW/PO 

C.200C00 0 .01 3979 0.03770C 0.078641 0.002730 1.655929 1.658658 0.838862 2460.000000 0.951126 

YSHP ( $ YSHP < S+OS/2 NEW YSHP ALPHA($*C$/2 PHKS+DS/2 KAPPAJS KAPPAIS+DS/2 

0.000000 O.OCOOOO 0.018751 1.286004 1.286004 0.930449 0.856159 


USH 

VSH 

TSH 

RSH 

PSH 

VPG 

0.190109 

-0.103686 

0.321006 

9.426875 

0.855116 

0.0 

4771.75 

-2602.52 

36809.47 

2C449.72 





K 

*1, 

1 

= 

3, 

S = 

0.400, 

NITER 

= 

U 

DIFI 


7.1480-02 

1 .3720-01 

6.9550-02 

6.379D 00 

K 

= 1, 

I 

= 

i, 

S = 

0.400, 

NITER 


2, 

01 F I 

= 

8. 1670-02 

2. 8080-02 

2.0000-02 

3.596D-01 

K 

= 1, 

1 

- 

3, 

s = 

0.400, 

NITER 

= 

3, 

DIFI 

a 

1. 0050-02 

1.1160-02 

1.2130-0 2 

2.0550-01 

K 

*lt 

1 

= 

3, 

s = 

0.400, 

NITER 

= 

4, 

01 F I 

a 

2.866D-03 

3 .2540-03 

1.4020-03 

1.299D-02 

K 

*lt 

I 

= 

3 t 

S a 

0.400, 

NITER 

= 

5, 

DIFI 

a 

3.5010-04 

1.093C-03 

1.6540-03 

2.665D-02 

K 

*1, 

1 

= 

3, 

S = 

0.400, 

NITER 

= 

6, 

DIFI 

a 

4.4100-04 

2.3630-04 

1.825D-04 

7.441D-03 


**** FREE FLIGHT HYPERBOLOID ALT=245K FT. M=26.9 ALPHA=30, 8INARY-GAS **** 


S X R YSH YSHP XSH RSH NO ITER NITTOT NTOT I K 

0.400000 0.C75579 0.390592 0.064482 0.030753 C. 015372 0.413680 6 43 43 3 1 

DS CF HEAT STAN CDF COP CDTOT PWALL TWALL PW/PO 

0.200G00 0.023314 0.033295 0.069452 0.005688 1.562459 1.568147 0.736973 2460.000000 0.835601 

YSHP ( S YSHP ( S+DS/2 NEW YSHP ALPHA($+0S/2 PHItS+OS/2 KAPPAIS KAPPAC S+DS/2 
C. COCOCO O.COQOOO 0.030753 1.132012 1.132012 0.770250 0.682420 

USH VSH TSH RSH P$H VPG 

0.352899 -0.098578 0.291473 9.459808 0.779173 0.0 

8857.76 -2474.30 33422.95 

18568.31 


K 

= lf 

1 

= 

4, 

S 

= 

0.600, 

NITER 


1, 

DIFI 

= 

6.459D-02 

1 • 516D-01 

1.321D-01 

1.030D 01 

K 

= 1, 

I 

= 

4, 

S 

= 

0.600, 

NITER 

= 

2, 

DIFI 

= 

6.893D-02 

2.434D-02 

3 .3150-02 

3.028D-01 

K 

= 1* 

I 


4, 

S 

- 

0.600, 

NITER 

- 

3 , 

DIFI 

= 

1.645D-02 

1. 355D-02 

1 *8470-02 

2.240D-01 

K 

= 1 T 

I 

= 

4, 

S 

- 

0.600, 

NITER 

= 

4, 

DIFI 

= 

4. 162D-03 

3.551D-03 

2.558D-03 

1 • 829D-02 

K 

= 1» 

I 

= 

4» 

S 

= 

0 .600 , 

NITER 

= 

5, 

DIFI 

=■ 

1 .6140-03 

9 .9280-04 

2.6B1D-03 

2.767D-02 

K 

= 1. 

I 

= 

4, 

S 

= 

0.600, 

NITER 


6, 

DIFI 

= 

4.551D-04 

2. 645 D- 04 

1. 8770-04 

5 .1340-03 


**** FREE FLIGHT HYPERBOLOID ALT=245K FT. M=26.9 ALPHA=30, BINARY-GAS 


**** 


0.600000 


0.160212 


0 .571603 


YSH 

0.071395 


YSHP 

0.038378 


XSH 

0.097653 


RSH 

0.606013 


NO ITER 
6 


NITTOT 

49 


NTOT 

49 


DS 

0.200000 


CF 

0.027301 


HEAT 

0.028282 


STAN 

0.058996 


CDF 

0.009255 


COP 

1.441426 


CDTOT 

1.450681 


PWALL TWALL 

0.624348 2460.000000 


PW/PO 

0.707904 


YSHP < S YSHP I S+DS/2 

- 0.000000 0.000000 


NEW YSHP 
0.C38378 


ALPHA ( S +DS/ 2 PHHS+DS/2 
1.011943 1 .011943 


KAPPACS KAP p A( S+DS/2 
0.599116 0.523715 


JSH 


VSH 


TSH 


RSH 


PSH 


VPG 




0.477527 

-0.092728 

0.257784 

9.452562 

0.688719 O.C 

) 



11985. 

92 

-2327. 

47 

29559 

.90 










16422 

.17 




K 

= 1* 

I * 5, 

S ^ 

0.800, 

NITER 

= It 

DIFI = 

5 • 10QD-02 

1 .3790-01 1.909D-01 

5 .5400 00 

K 

= L, 

I = 5, 

s = 

0.800, 

NITER 

= 2, 

DIFI = 

3.851D-02 

1.789C-C2 4.861D-02 

2.1030-01 

K 

= lt 

I = 5, 

s * 

0.800, 

NITER 

= 3, 

DIFI = 

2.323D-02 

1.4960-02 2.3040-02 

1.6180-01 

K 

= lt 

I - 5, 

s = 

0.800, 

NITER 

= 4, 

DIFI = 

2. 3810-03 

2.933D-03 4 .4520-03 

1.678D-02 

K 

= 1, 

I = 5, 

s = 

0.800, 

NITER 

= 5, 

DIFI = 

2.930D-03 

1.3400-03 3.373D-03 

1.762D-C2 

K 

= 1, 

I = 5, 

s = 

0.800, 

NITER 

= 6, 

DIFI = 

1 .6790-04 

2.755D-C4 1.2080-04 

1.358D-03 


**** FREE FLIGHT HYPERBOLOID ALT 

= 245K 

FT. M=26. 9 

ALPHA=30, BINARY-GAS 


S 



X 

R 


YSH 

YSHP XSH 

RSH 


C. 800000 

0. 

265984 

0.741194 

0.079502 0.042695 0.200721 

0.786596 


DS 


CF 

HEAT 

STAN CDF COP 

CDTOT 


C. 200000 

0 . 

027935 

0.023873 

0.049799 0.012547 1.318926 

1.331473 


YSHP 

( S YSHP 

( S+DS/2 

NEW 

YSHP ALPHA (S+DS/2 PHI (S+DS/2 KAPPA (S KAPPA( S+DS/2 


0.000000 


0.000000 


0.042695 


0.920184 


C. 920184 


0.457400 


NO ITER 
6 


NITTOT 

55 


NTOT 

55 


PWALL TWALL 

0.528085 2460.000000 


PW/PO 

0.598757 


0.400051 


USH 

0.567944 

14255.39 


VSH 

-0.087477 

-2195.68 


TSH 

0.227832 

26125.29 

14514.06 


RSH 

9.393196 


PSH 

0.604957 


VPG 

0.0 



= 1, 

I 

= 

6, 

S = 

1.000, 

NITER = 

1 , 

DIFI 

= 4.033 D- 02 

1.195D— 01 

2.316 D-Ol 

2.382D 00 

=ll 

I 

= 

6, 

s = 

1.000, 

NITER = 

2, 

DIFI 

= 1.000D-02 

1 .7300- 02 

6.420D-02 

1 • 235D-01 

=1, 

I 

- 

6, 

S = 

1.000, 

NITER = 

3, 

DIFI 

= 2.7670-02 

1 • 5600-02 

2.524D-02 

9. 768D-02 

= 1, 

I 


6 , 

s = 

1.000, 

NITER = 

4, 

DIFI 

= 2.8 14D-03 

3. 4C6C-C3 

6.291D-03 

1.1 73D-02 

=1, 

I 

= 

6 * 

s = 

1.000, 

NITER = 

5, 

DIFI 

= 3 .5 780-03 

1 • 307D-C3 

3.487D-03 

8.456D-03 


**** 


FREE FLIGHT HYPERBOLOID 


ALT=245K FT. M=26.9 


AL PH A= 30 » BINARY-GAS 


**** 


S 

1.000000 


X 

0.386918 


R 

0.900366 


YSH 

0.088349 


YSHP 

0.045774 


XSH 

0.316672 


RSH 

0.956473 


NO ITER 
5 


NITTOT NTOT I K 

60 60 6 1 


OS 

0.200000 


CF 

0.027041 


HEAT STAN 

0.020347 0.042443 


CDF 

0.015234 


CDP 

1.208064 


CDTOT 

1.223298 


PWALL TWALL 

0.453728 2460.000000 


PW/PO 

0.514450 


YSHP ( S YSHP ( S+DS/2 

0.000000 0.000000 


NEW YSHP ALPHA(S+DS/2 PHKS + OS/2 
0.045774 0.849778 0.849778 


KAPPA( S K A PP A( S+DS/2 
0.350905 0.308952 


USH 

0.632912 

15886.08 


VSH 

-0.083156 

-2C87.23 


TSH 

0.203588 

23345.19 

12969.55 


RSH PSH VPG 

9.299610 0.535214 0.0 



N 

Y/YSH 

U/USH 

V/V5H 

T/TSH 

R/RSH 

P/PSHI APPR) 

P/PSH 

CA 

CAEQ 

XM 

T DEG R 

1 

0.0 

0.0 

0.0 

0. 105667 

8.C50302 

0.847752 

0.917449 

0.0 

0.000003 

0.0 

2466.81 

2 

0.004777 

0.036003 

0 .000056 

0.131821 

6.120752 

0.847756 

0.917453 

0.052327 

0.000273 

C. 251505 

3077.39 

3 

0.009792 

0.069244 

0.000257 

0.153923 

5.C04202 

0.847773 

0.917469 

0. 100634 

0.003502 

0.440980 

3593.37 

4 

0.015059 

0.100716 

0.000628 

0. 173325 

4.261213 

0.847811 

0.917506 

0.146427 

0.019302 

C. 595177 

4046.30 

5 

0.020588 

0.130954 

0.001191 

0.190735 

3.724962 

0.847875 

0.917568 

0.190529 

0.065651 

0.726231 

4452.74 

6 

0.026394 

0.160276 

0.001972 

0.206585 

3.316734 

0.847968 

0.917659 

0.233433 

0. 162116 

0.840647 

4822.76 

7 

0.032491 

0.188885 

0.002997 

0.221156 

2.994102 

0.840094 

0.917782 

0.275453 

0.314721 

0.942390 

5162.93 

8 

0.038892 

0.216911 

0.004293 

0.234642 

2.731987 

0.848256 

0.917939 

0.316790 

0.501759 

1.03403 1 

5477.76 

9 

0.045614 

0.244438 

0.005889 

0.247183 

2.51451 2 

0.848458 

0.918135 

0.357571 

0.679370 

1.117358 

5770.52 

10 

0.052671 

0.271514 

0.007815 

0.258883 

2.331075 

0.848703 

0.918373 

0.397872 

0.811933 

1.193819 

6043.68 

11 

0 .06008 1 

0.298166 

0.010103 

0.269829 

2.174284 

0.848994 

0.918656 

0.437723 

0.894061 

1.264352 

6299.20 

12 

0.067862 

0.324395 

0.012787 

0.280092 

2.038795 

0.849335 

C. 918986 

0.477120 

0.9399 52 

1.329654 

6538.79 

13 

0.076032 

0.350192 

0.015903 

0.289739 

1.920632 

0.849731 

0.919368 

0.516020 

0.964842 

1.390326 

6764.02 

14 

0.084610 

0.375529 

0.019486 

0.299837 

1.816767 

0.850184 

0.919805 

0.554350 

0.978537 

1.446762 

6976.41 

15 

0.093617 

0.400371 

0.023577 

0.307450 

1.724840 

0.850700 

0.920301 

0.592003 

0.986337 

1.499168 

7177.49 

16 

0. 103075 

0.424672 

0.028217 

0.315646 

1.642990 

0.851283 

0.920858 

0.628842 

0.990962 

1.547780 

7368.81 

17 

0.113006 

0.448379 

0.033447 

0.323489 

1.569734 

0.851936 

0.921480 

0.664704 

0.993818 

1.592796 

7551.91 

18 

0.123433 

0.471438 

0.039311 

0.331044 

1.503884 

0.852664 

0.922171 

0.699398 

0.995649 

1.634398 

7728.27 

19 

0.134381 

0.493794 

0.045855 

0.338368 

1.444494 

0.853472 

0.92293 2 

0.732719 

0.996862 

1.672774 

7899.25 

20 

0.145877 

0.515395 

0.053122 

0.345509 

1.390813 

0.854363 

0.923766 

0.764444 

0.997689 

1.708136 

8065.98 

21 

0.157947 

0.536196 

0.061155 

0.352504 

1.342261 

0.855343 

0.924676 

0.794348 

0.998267 

1.740829 

8229.28 

22 

0.17C621 

0.556164 

0.069993 

0.359369 

1.298397 

0.856415 

0.925663 

0.822210 

0.998679 

1.771088 

8389.54 

23 

0.183929 

0.575280 

0.C79666 

0.366099 

1.258906 

0.857584 

0.926731 

0.847821 

0.998977 

1.799243 

0546.65 

24 

0.197902 

0.593541 

0.090198 

0.372663 

1.223578 

0.858855 

0.927880 

0.870998 

0.999196 

1.825722 

8699.88 

25 

0.212574 

0.610964 

0.101599 

0.379002 

1.192289 

0.860235 

0.929114 

0.891593 

0.999357 

1.851017 

8847.87 

26 

0.227980 

0.627588 

0.113867 

0.38503 2 

1.164984 

0.861729 

0.930435 

0.909502 

0.999476 

1.875684 

8988.64 

27 

0.244155 

0.643468 

0.126981 

0.390645 

1.141656 

0.863345 

0.931848 

0.924669 

0.999564 

1.900319 

9119.67 

28 

0.261140 

0.658682 

0.140907 

0.395717 

1.122326 

0.865092 

0.933360 

0.937095 

0.999629 

1.925547 

9238.08 

29 

0.278974 

0.673323 

0.155601 

0.400122 

1.107015 

0.866983 

0.934977 

0.946827 

0.999676 

1.951994 

9340.92 

30 

0.297699 

0.687500 

0.171007 

0.403745 

1.095727 

0.869028 

0.936710 

0.953957 

0.999710 

1.98026 2 

9425.49 

31 

0.317361 

0.701328 

0.187078 

0.406498 

1.088422 

0.871246 

0.938573 

0.958607 

0.999732 

2.010902 

9489.77 

32 

0.338006 

C. 714932 

0.203772 

0.408338 

1.085000 

0.873655 

0. 940579 

0.960915 

0.999746 

2.044390 

9532.74 

33 

0.359683 

0.728433 

0.221077 

0.409279 

1.085280 

0.876277 

0.942747 

0.961017 

0.999752 

2.081114 

9554.70 

34 

0.382443 

0.741951 

0.239008 

0.409396 

1.088991 

0.879137 

0.945097 

0.959030 

0.999752 

2.121315 

9557.42 

35 

0.406342 

0.755593 

0.257626 

0.408826 

1.095774 

0.882266 

0.947649 

0.955042 

0.999747 

2.165132 

9544.12 

36 

0.431436 

0.769451 

0.277032 

0.407758 

1.105193 

0.885697 

0.950427 

0.949096 

0.999738 

2.212602 

9519.20 

37 

0.457785 

0.783599 

0.297365 

0.406418 

1.116758 

0.889465 

0.953451 

0.941187 

0.999725 

2.263642 

9487.89 

38 

0.485451 

0.798089 

0.318799 

0.405045 

1.129957 

0.893612 

0.956744 

0.931259 

0.999712 

2.318084 

9455.86 

39 

0.514500 

0.812949 

0.341530 

0.403887 

1.144286 

0.898181 

0.960326 

0.919202 

0.999699 

2.375712 

9428.81 

40 

0.545002 

0.8281J38 

0.365772 

0.403181 

1.159272 

0.903219 

0.964216 

0.904857 

0.999689 

2.436276 

9412.34 

41 

0 .57 7029 

0.843795 

0.391752 

0.403169 

1.174463 

0.908777 

0.968428 

0.886010 

0.999685 

2.499499 

9412.05 

42 

0.610657 

0. 859739 

0.419732 

0.404107 

1.189393 

0.914908 

0.972972 

0.868396 

0.999688 

2.565047 

9433.95 

43 

0.645966 

0.875976 

0.450029 

0.406309 

1.203510 

0.921665 

0.977846 

0.845676 

0.999703 

2.632480 

9485.35 

44 

0.683041 

0.892441 

0.483077 

0.410201 

1.216056 

0.929104 

0.983029 

0.819410 

0.999728 

2.701197 

9576.22 

45 

0.721970 

0.909052 

0.519528 

0.416436 

1.225870 

0.937276 

0.988464 

0.788961 

0.999767 

2.770290 

9721.78 

46 

0.762845 

0.925695 

0.560465 

0.426111 

1.231037 

0.946218 

0.994018 

0.753294 

0.999815 

2.838079 

9947.65 

47 

0.805764 

0.942218 

0.607873 

0.441289 

1.228214 

0.955946 

0.999404 

0.710457 

0.999870 

2.901853 

10301.97 

48 

0.85C829 

0.958399 

0.665812 

0.466405 

1.211172 

0.966421 

1.003963 

0.656121 

0.999925 

2.956807 

10888.32 

49 

0.898148 

0.973889 

0.743720 

0.512991 

1.167655 

0.977488 

1.006091 

0.578614 

0.999969 

2.994015 

11975.87 

50 

0.947832 

0.988084 

0.864811 

0.620638 

1.075938 

0.988768 

1.004440 

0.436357 

0.999993 

3.000035 

14488.92 

51 

1.000000 

1.000000 

0.989477 

1.000000 

l.COOOOO 

l.OOOOOC 

1.000000 

0.0 

1.000000 

3.050047 

23345.19 


Listing of the Unit 6 Output Data for the 31° Hyperboloid 7-Species Sample Case 


FREE FLIGHT HYPERBOLOID ALT = 245K FT. M=26.9 ALPHA=30, 7-SPECIES 


CINPUT 

ALT= 245000. COCOOOOOOO ,BRAD= 2 . 36O833OC0OOOOOO ,CAINF= 0.0 ,CAT= 1.000000000000000 ,CAW» 

0.0 ,CCFAC= 0.0 * CONVRG= 0.99999979138374320-02, DS= 0.2 000000000000000 ,DSMAX* 

3.00J00 jOOOC'OOOOO ,HANGLE= 31.00000000000000 9 PRNTC I = 0.0 ,RINF= 0. 86725102799999990-07 , $END= 

43.GOOCOCOOOOOOOO ,SIGM= 0-6999 9 99880 790710 ,SITEST= 0 .99999990 1 97829900-04, S MALLT= 0. 99999942904105410-06 ,SSFAC= 
-1.0000C30000000CO , SlrjFAC= -1 . OOCOOOOOOOOOOOO , TB= 2460.000000000000 ,THINI= -1 .000000000000000 ,TINF= 

361.480 3C0 CO 00000 ,UFAC= C . 5 0 C 0 COOOOO 000000 ,UINF= 25100.00 00 00 00000 ,WVFAC= 0. 2 50000000c000000 , XKETA= 

1.05CUOOOGOOOOOGO ,XLE= 1.399999618530273 ,XNSO= 0.1165999770164490 ,IE = 51,IEND= 6,IGE0M* 1, 

I UN= 1 9 » J F AC = 1 , K END= 1,KPLTTP= Q,KTWAL= 0,NAN= 1 ,NDATA= 1,NITMAX=* 

99 9 9 » N I TM I N = 3,NITMNI= 3,NS= 6,NSI= 6,NSPRF= 0,NTSH= 20, NTTWA= 

5 

SEND 


ro 

o 


LDG RATES MATCH 6 SPECIE BLOTTNE R-S ANDI A 


NR 



REACTION 



CRO 

EXP(CRO) 

CR1 

CR2 

DRO 

EXP(DRO) 

0R1 

DR2 

1 

02 

Ml 

= 0 

C 

Ml 

42.7302394 

0.3610D 

19 

59400.0 

-1.0 

35.6407165 

0 .30100 

16 

0.0 

-0.5 

2 

N2 

M2 

= N 

N 

M2 

39.7962718 

0.19200 

18 

113100.0 

-0.5 

36.9275392 

0.10900 

17 

0.0 

-0.5 

3 

N2 

N 

= N 

N 

N 

52.0799804 

0.4150D 

23 

113100.0 

-1.5 

49.1958541 

0 .23200 

22 

0.0 

-1.5 

4 

NO 

M3 

= N 

0 

M3 

47.4304680 

0.3970D 

21 

75600.0 

-1.5 

46.0616522 

0.10100 

21 

0.0 

-1.5 

5 

NO 

a 

=02 

N 


21.88C1470 

0.31800 

10 

19700.0 

1.0 

27.5933192 

0.96300 

12 

3600.0 

0.5 

6 

M2 

0 

= NO 

N 


31.8431487 

0.67500 

14 

37500.0 

0.0 

30.3390713 

0.1500D 

14 

0.0 

0.0 

7 

N 

0 

= N0+ 

EL 


22.9238182 

0.90300 

10 

32400.0 

0.5 

44.3369034 

0.18000 

20 

0.0 

-1.0 




AL PH SB ( 

7, 

10) 











NR 

ALSJB 

NR 

0 

02 

NO N NO* N2 

Ml 

M2 M3 

EL 






1 

1.0 


1 

0 . 

1 . 

0. 0. U 

. 0 . 

1 . 

0 . 0 . 

0 . 






2 

1.0 


2 

c . 

0 . 

C. 0. 0 

• 1. 

0 . 

1 . 0 . 

0 . 






3 

1.0 


3 

0 . 

0 . 

0 . 1 . 0 

• 1 . 

0 . 

0 . 0 . 

0 . 






4 

1.0 


4 

0 . 

0 . 

1 . 0 . 0 

. 0 . 

0 . 

0 . 1 . 

0 . 






5 

1.0 


5 

1 . 

0 . 

1 . 0 . 0 

. 0 . 

0 . 

0 . 0 . 

0 . 






6 

1.0 


6 

1 . 

0 . 

0. 0. 0 

. 1. 

0 . 

0 . 0 . 

0 . 






7 

1.0 


7 

1 . 

0 . 

0. 1. 0 

. 0. 

0 . 

0. 0. 

0 . 







BET ASB { 7,10) 

NR 0 02 NO 

1 2* 0. 0. 

2 0. 0. 0. 

3 0, 0. 0. 

4 1. 0. 0. 

5 0. 1. 0. 

6 G. 0. 1. 

7 C. 0. 0. 


ZSUB ( 4, 6) 



0 

02 

NO 

N 

N0 + 

N2 

Ml 

25.0 

9.0 

1.0 

1.0 

0.0 

2.0 

M2 

1.0 

1.0 

1.0 

0.0 

0.0 

2.5 

M3 

20.0 

1.0 

20.0 

20.0 

0.0 

1.0 

EL 

0.0 

0.0 

0.0 

0.0 

1.0 

0.0 


GAMMPL ( 7, 6) 

1 2* Ob Ob Cb 0 * 

2 Oa Ob Ob 2b Ob 

3 0. Ob 0. 2b Ob 

4 1b 0. 0. 1. 0. 

5 D, 1. 0. 1. 0. 

6 0# Ob 1b 1b Ob 

7 3. 0. 0. 0. 1. 

GAMMM I ( 7# 6) 

1 Ob 1b Ob Ob Ob Ob 

2 Ob Ob Ob Ob Ob 1b 

3 Ob Ob Ob Ob Ob 1b 

4 Ob Ob 1b Ob Ob Ob 

5 1b 0. I. 0. 0. 0. 

6 1b Ob Ob Ob Cb 1b 

7 1. Ob 0. 1. 0. 0. 

VSREF = 0.233539990-04 

VSINF = 0.358679110-06 


NR BETSUB 
1 2.0 

2 2.0 

3 2.0 

4 2.0 

5 1.0 

6 1.0 

7 1.0 


o o o o o o o 


N NC+ N2 PI M2 M3 EL 

Oa Ob Ob 1b Ob Os Ob 

2b Ob 0. Ob 1b Ob Ob 

3a 0. Ob Ob Ob Ob Ob 

1b Cb Ob Ob Ob 1b Os 

1b Ob 0. Ob Ob Ob Ob 

1. 0. 0. Ob Ob Ob Ob 

Ob 1b Ob Ob 0. 0. 1. 



K =1, 

I 

= 

1, 

s 

= 

0,0 

» 

NITER 

= 

If 

DIFI 

- 

3.883D 01 

4 *9790 00 

0.0 


l.OOOD 

00 

0.0 


0.0 


0.0 


7.590D- 

01 

K =1, 

I 

= 

If 

s 

= 

0.0 

F 

NITER 

= 

2 F 

01 F I 


6.5580-01 

2. 953 D- 01 

8. 9180- 

OL 

7.080D 

02 

8.909 D 

16 

4.2650 

17 

9. 4330 

35 

1.597D 

00 

K =lt 

I 

= 

If 

s 

= 

0.0 

F 

NITER 

- 

3, 

DIFI 

= 

4.204D-01 

9 .7760-01 

3. 3330 

01 

3.417D 

03 

1.864D 

00 

9.6620- 

01 

9.946D-01 

5. 2840 

01 

K =1, 

r 

H 

1. 

s 


o.c 

F 

NITER 

= 


DIFI 

= 

2.6430 00 

5.280C CO 

9.0970- 

01 

1.945D 

02 

2.2180 

03 

3.545D 

00 

1.4960 

01 

1.677D 

01 

K = 1 , 

i 

= 

If 

s 


0.0 

F 

NITER 

= 

5, 

DIFI 

= 

1 .4450-0 1 

2.909D 01 

8.622D- 

01 

1 • 6 980 

02 

3.141D 

01 

3.0140 

02 

5. 8580 

14 

2.379D 

01 

K = 1, 

i 

- 

If 

s 

= 

0.0 

f 

NITER 


6 F 

DIFI 

- 

2.724D-01 

7.6070 00 

3.954D 

01 

3 .6000 

36 

5.444D- 

01 

1.8500 

08 

2.243D 

00 

1.248D 

00 

K =1, 

i 

= 

1. 

s 

= 

0.0 

F 

NITER 

- 

7t 

DIFI 

= 

1.294D 00 

6.822D-01 

9 *9070- 

01 

9.258D 

00 

9.310D 

01 

l.OOOD 

00 

7.9180 

11 

4.182D 

00 

K = 1, 

i 

= 

If 

s 

= 

0.0 

F 

NITER 

- 

8, 

DIFI 

- 

4. 3270-01 

6.252D-01 

l.OOOD 

00 

1.820D 

36 

9.857D- 

■01 

1.263D 

06 

l.OOOD 

00 

9.925D 

00 

K =1, 

i 

= 

1. 

s 

- 

0.0 

f 

NITER 


9, 

DIFI 

= 

5.7290-01 

1.440C 00 

1.399D 

39 

2.439D 

38 

l.OOOD 

00 

1.0000 

00 

1 • 4390 

09 

3.926D- 

01 

K =1, 

i 

= 

If 

s 

= 

0.0 

F 

NITER 

= 

10, 

DIFI 

= 

6.2400-01 

1.308D 00 

7.172D 

00 

1.615D 

01 

1.135D 

05 

2.256D 

05 

1 .72 ID 

00 

2.29 8D-01 

K = 1, 

i 

= 

If 

s 

= 

0.0 

F 

NITER 

- 

Ilf 

DIFI 

= 

4. 9470-02 

1.870C-01 

7.712D 

39 

2.391D 

39 

9.818D 

00 

9.9990- 

■01 

1 .2390 

08 

7.244D- 

01 

K =1, 

i 

= 

1. 

s 

= 

0.0 

F 

NITER 

- 

12, 

DIFI 

= 

4.306D-01 

4.544D-01 

1.6720 

02 

9 .5070 

39 

1.389D 

39 

6 • 0730 

03 

1.0000 

00 

2.727D 

00 

K = 1, 

i 

= 

1* 

s 


0.0 

F 

NITER 

- 

13, 

DIFI 

- 

3.172 D- 01 

1.527D 00 

l.OOOD 

40 

1.980D 

00 

5.110D 

01 

l.OOOD 

00 

4.075D 

08 

1.816D 

00 

K =1, 

i 

= 

If 

s 


0.0 

« 

NITER 

= 

14, 

DIFI 

= 

7.654D-01 

2.458D OC 

l.OOOD 

00 

1.032D 

37 

3.646D 

38 

5. 3700 

05 

l.OOOD 

00 

9.323D 

01 

K =1, 

i 

= 

If 

s 

- 

0.0 

F 

NITER 

= 

15, 

DIFI 

= 

5.3970-01 

6.285D 00 

I .4600 

39 

2.3990 

36 

9. 9920- 

■01 

9.7530- 

OL 

1 • 0490 

07 

3.312D- 

01 

K =1, 

i 

- 

If 

s 

= 

0.0 

F 

NITER 

= 

16, 

DIFI 

= 

1 *5260 00 

8.234D-01 

1.020D 

03 

4.255D 

39 

9.381D 

02 

6.824D 

03 

l.OOOD 

CO 

2.3020 

00 

K =1, 

r 

= 

1. 

s 

- 

0.0 

F 

NI TER 

= 

17, 

DIFI 

= 

6.C93D-01 

4. 1930 00 

l.OOOD 

00 

7.018D 

01 

2. 4880 

02 

1.0000 

00 

4.436D 

06 

1.1570 

01 

K =1, 

i 

= 

1* 

s 

= 

0.0 

F 

NITER 

- 

18, 

DIFI 

- 

8.3100-01 

7. 888 D- 01 

l.OOOD 

00 

1.003D 

00 

2. 1800 

00 

8. 862 D 

06 

2.688D 

00 

6.866D 

00 

K = 1, 

i 

= 

If 

s 

- 

0.0 

9 

NITER 

= 

19, 

DIFI 

- 

4.922D-01 

4.760D 00 

1.702D 

39 

4.158D 

00 

1.2470 

39 

1.0000 

00 

9.734D 

03 

4 • 83 ID 

00 

K =1, 

i 

D 

If 

s 


0.0 

F 

NITER 


20, 

DIFI 

- 

8. 8390 00 

4.9C8D 00 

2.720D 

05 

4.470D 

39 

l.OOOD 

00 

1.437D 

05 

7. 8350 

00 

6.134D- 

■01 

K *1. 

i 

= 

If 

s 

= 

0.0 

t 

NITER 

- 

21, 

DIFI 

= 

8. 2170-01 

2 . 689D— 0 1 

1.107D 

00 

1.660D 

01 

5.686D 

39 

9.909D- 

■01 

4.108D 

05 

2.474D 

00 

K =1, 

i 

= 

1. 

s 

= 

0.0 

t 

NITER 

= 

22, 

DIFI 

= 

2.455D-0 1 

5 .0780- 01 

4.793D 

03 

l.OOOD 

00 

2.4100 

00 

7.2080 

02 

7. 8500 

00 

1.023D 

02 

K =1, 

i 

= 

If 

s 

= 

0.0 

F 

NITER 

= 

23, 

DIFI 

= 

7.6390-01 

4.9320-01 

9.953D- 

-01 

l.OOOD 

00 

8.188D 

00 

1.6190 

00 

5.227D 

04 

7. 9790 

00 

K =1, 

i 


If 

s 

- 

0.0 

F 

NITER 

= 

24, 

DIFI 

= 

5.5270-01 

3.594C-01 

2.1200 

02 

1.1 86D 

39 

9.9130- 

■01 

2.453D 

04 

l.OOOD 

00 

3.069D 

01 

K =1, 

i 

= 

If 

s 

- 

0.0 

F 

NITER 

= 

25, 

DIFI 

= 

1.672D 00 

4 .6390— 01 

l.OOOD 

00 

l.OOOD 

00 

1.140D 

02 

1.0000 

00 

8.851D 

03 

9.1070 

00 

K =1, 

i 

= 

If 

s 

= 

0.0 

F 

NITER 

- 

26, 

DIFI 

= 

5. 4840-01 

2. 5130- Cl 

3.747D 

04 

6.383D 

38 

9.747D- 

-01 

3.6920 

04 

9. 999 0- 

-01 

1.3450 

03 

K = 1, 

i 


If 

s 

D 

0.0 

F 

NITER 

- 

27, 

DIFI 

- 

1.5340 00 

2.780D-C1 

l.OOOD 

00 

l.OOOD 

00 

3.853D 

01 

1.0000 

00 

1 .7290 

04 

1.60 90 

01 

K =1, 

i 

= 

l. 

s 

- 

0.0 

F 

NITER 

= 

28, 

DIFI 

= 

6. 073 D- 01 

3 • 7320- Cl 

1.0000 

00 

9.3660 

38 

1.0000 

00 

1.2980 

05 

l.OOCO 

OC 

1.7630 

04 

K =1, 

i 

= 

If 

s 

= 

0.0 

f 

NITER 

= 

29, 

DIFI 

- 

1.1440 00 

1.016D 01 

7. 0950 

38 

4.025D 

38 

2.978D 

38 

7.3740 

00 

6 .9e7D 

00 

1.46 3D- 

■01 

K =1, 

i 

= 

If 

s 

- 

0.0 

F 

NITER 

= 

30, 

DIFI 


1 .0000 00 

l.OOOD 00 

3.176D 

00 

l.OOOD 

40 

3.162D 

01 

1 . 0930 

00 

7 .2800 

01 

1.0060 

00 

K =1, 

i 

- 

If 

s 

- 

0.0 

f 

NITER 

D 

31 F 

DIFI 


2.433D 02 

1 • 5850 C5 

2.563D 

37 

2.238D 

00 

9.973D- 

■01 

2.4970 

35 

2 .6650 

34 

2. 9060 

02 

K =1, 

i 

= 

If 

s 


0.0 

r 

NITER 

= 

32, 

DIFI 

= 

6.234D 03 

2.379D C5 

1.520D 

01 

1 .0000 

40 

8.388D 

02 

8.538D 

36 

1 .0000 

00 

1.0260 

00 

K =1, 

i 

= 

If 

s 

- 

0.0 

F 

NITER 

= 

33, 

DIFI 

H 

1.5640 05 

3.1230 00 

2. 5470 

05 

3.3230 

01 

5.377D 

01 

l.OOOD 

00 

5.313D 

12 

9.966D 

04 

K = 1, 

i 


If 

s 

= 

0.0 

F 

NITER 

= 

34, 

DIFI 

= 

6.6070-01 

7 • 042 D- 01 

1 .0590 

01 

6.186D- 

-01 

1.706D 

00 

3.362D 

08 

2 • 0450 

00 

1.2680-01 

K =1, 

i 

= 

If 

s 

= 

0.0 

» 

NITER 

- 

35, 

DIFI 

= 

2 .9030-0 1 

1.3400-01 

1.216D 

00 

8 .0060-01 

4.0 1 ID 

00 

4.9690 

02 

8 .1270 

02 

3.519D-01 

K =1, 

i 

- 

If 

s 

= 

0.0 

F 

NITER 


36, 

DIFI 

= 

1 .8630-0 1 

1.72OD-01 

3.805D- 

-01 

4 .3590-01 

3.3700- 

-01 

3.7360 

00 

7.835D 

00 

2.2C9D- 

-01 

K =1, 

i 

= 

1. 

s 

= 

0.0 

F 

NITER 

= 

37, 

DIFI 

= 

1.3670-01 

6 • 267C-02 

8.C82D- 

-01 

6.229D- 

-01 

5.136D- 

-01 

1.4150 

00 

7.613D-01 

4.2570- 

-01 

K =1* 

i 

= 

If 

s 


0.0 

F 

NITER 


30, 

DIFI 

= 

1.272 D- 01 

7.2 05D-C2 

1.7530- 

-01 

2.493D-01 

4.7300- 

-01 

1.102D 

00 

5.155D 

00 

2 .45 ID- 01 

K =1, 

i 

= 

If 

s 

= 

0.0 

t 

NITER 

- 

39, 

DIFI 

= 

7.789 0-02 

2.3800-02 

1.5950- 

-01 

6.0330-01 

2. 5490* 

-01 

6. 1720* 

-01 

7.203D-01 

1.7910- 

-01 

K =1, 

i 

= 

If 

s 


o.o 

F 

NITER 

= 

40, 

DIFI 

= 

6 .4480-0 2 

5.423D-02 

1 .7 220* 

-01 

2 . 680D-01 

2.939D- 

-01 

4.2720* 

-01 

2.343D 

00 

1. 6580-01 



K 

= 1* 

i 

= 

i* 

s 

= 

0.0 

f 

NITER 

= 

41, 

DIFI 


4.193D-02 

5.174D-02 

8.346D-02 

4.8220-01 

1.3220-01 

4.418D-01 

5.1630-01 

2.820D-02 

K 

= 1, 

i 

= 

u 

s 


0.0 

t 

NITER 

= 

42, 

D1FI 

= 

3. 5070-02 

3.168D-02 

8 .9430-02 

2.996D-01 

2 . 228D-01 

3.2680-01 

1.2240 00 

4.410D-02 

K 

= lf 

i 

= 

it 

S 


0.0 

f 

NITER 

= 

43, 

DIFI 

= 

2.398D-02 

2.004D-02 

8.3700-02 

3.47ID-01 

1.4840-01 

2.704D-01 

4.0230-01 

4.1790-02 

K 

= lt 

i 

- 

if 

s 

- 

9.0 

t 

NITER 

- 

44, 

DIFI 


1.725D-02 

8 .4800-03 

6. 9630-02 

2.8380-01 

1.6010-01 

1.836D-01 

6.3610-01 

3.1870-02 

K 

*li 

i 

= 

if 

s 

= 

0.0 

t 

NITER 


45, 

DIFI 

= 

1.250D-0 2 

8.762D-03 

6.094D-02 

2.617D-01 

1.296D-01 

1. 4660-01 

3.0620-01 

2.027D-02 

K 

= 1, 

i 

= 

it 

s 

s 

0.0 

f 

NITER 

- 

46, 

DIFI 

- 

8. 7840-03 

4.2740-03 

4.524D-02 

2.3060-01 

1.1880-01 

1.144D-01 

3.7290-01 

1.483D-02 

K 

= lt 

i 

= 

it 

s 

= 

0.0 

f 

NITER 

- 

47, 

DIFI 

= 

6.3C8D-03 

3.3030-03 

3.840D-02 

1 • 934D-01 

9.7750-02 

8.962D-02 

2.1840-01 

1.0670-02 

K 

= lt 

l 

= 

it 

s 

= 

0.0 

t 

NITER 

= 

48, 

DIF] 

= 

4 • 566D-03 

2 .9450-03 

2.7 50D-02 

1.661D-01 

8 • 533D-02 

6.7320-02 

2.1790-01 

7.802D-03 

K 

= 1. 

i 


it 

s 

= 

0.0 

t 

NITER 

- 

49, 

DIFI 

- 

3.2610-03 

2.5790-03 

2.315D-02 

L. 3340-01 

6.8180-02 

5.5010-02 

1.4920-01 

5.9440-03 

K 

= 1, 

i 

- 

l. 

s 

= 

0.0 

t 

NITER 

= 

50, 

DIFI 

= 

2.31 ID-03 

2 .3870-03 

1.5760-02 

1.114D-01 

5. 7490-02 

4. 1 70D-02 

1.305D-01 

4.1430-03 

K 

= lt 

i 

= 

it 

s 

= 

0.0 

t 

NITER 

- 

51, 

DIFI 

- 

1 .6700-03 

1 . 880D-03 

1 .3240-02 

8. 6690-02 

4.496D-02 

3.3410-02 

9.7950-02 

3.2050-03 

K 

= 1» 

t 

= 

it 

s 

= 

0.0 

f 

NITER 

= 

52, 

DIFI 

- 

L. 1950-03 

1. 7420-03 

8 .8590-03 

7.090D-02 

3.7140-02 

2.5630-02 

7.8020-02 

2.2580-03 

K 

= lt 

i 

= 

it 

s 

= 

0.0 

f 

NITER 

= 

53, 

DIFI 


9 .9200-04 

1.303D-03 

7.563D-03 

5. 421D-02 

2. 8470-02 

2.060D-02 

6. 197D-02 

1.7820-03 

K 

= 1, 

i 

= 

i. 

s 

= 

0.0 

f 

NITER 

= 

54, 

DIFI 

= 

6.9610-04 

1.205D-03 

4.977D-Q3 

4. 3750-02 

2.3330-0 2 

1. 557D-02 

4.6200-02 

1.2500-03 

K 

= 1* 

i 

= 

it 

s 

= 

0.0 

t 

NITER 

= 

55, 

DIFI 

- 

6. 2960-04 

8.555D-04 

4.3980-03 

3.306D-C2 

1.774D-02 

1. 251D-02 

3.8160-02 

1.0280-03 

K 

=it 

i 

= 

l. 

s 

= 

0.0 

f 

NITER 

= 

56, 

DIFI 

= 

4.270D-04 

7.8910-04 

2 .8750-0 3 

2. 6650-02 

1.4350-02 

9.5020-03 

2.7120-02 

7.238D-04 

K 

= u 

i 

= 

if 

S 

- 

0.0 

f 

NITER 

= 

57, 

DIFI 

- 

3.608D-04 

5. 4280-04 

2 .5720-03 

1.9980-02 

1.0850-02 

7. 557D-03 

2.2950-02 

5.9930-04 

K 

=i. 

i 

= 

it 

s 

- 

0.0 

f 

NITER 

= 

58, 

DIFI 

= 

2 .5580-04 

4. 9690-04 

1.6730-03 

1. 6060-02 

8.7290-03 

5.7430-03 

1.575D-02 

4.232D-04 

K 

=1* 

i 

- 

it 

s 

= 

0.0 

f 

NITER 


59, 

DIFI 

= 

2.238D-04 

3.3960-04 

1. 5160-03 

1.1990-02 

6.5650-03 

4.561D-03 

1. 3540-02 

3.5410-04 

K 

=i* 

i 

= 

it 

s 

= 

0.0 

f 

NITER 

= 

60, 

DIFI 

= 

1.496D-04 

3.1180-04 

9.8030-04 

9.6100-03 

5.2640-03 

3.449D-03 

9.040D-03 

2.4950-04 


UINF PINF 

TINF CAINF 

TB 

BRAD 

PR 

LE 

YSH ALT 

0.2510 05 0 • 53938D-01 

0.361480 03 0.0 

0.24600 04 

0.2361D 01 

0.70D 00 

0.140 01 

0. 57300-01 0.2450 06 

THIN SHOCK LAYER NO WALL 

SLIP NC SHOCK SLIP 

CAT WALL NO 

STEPS IN Y- 51 

NO STEPS IN 

S= 6 S 

STEP SI ZE=0.200 

TW/TS EPS REY INF 

REYSH TREF 

UREF 

RREF 

PREF 

ITER 



0.0744 0.0674 0.1433D 05 0.6568D 03 0.1045D Gfc 0.2510D 05 0.8673D-07 0.5464D 02 1 


**** FREE FLIGHT HYPERBOLOID ALT=245K FT. M=26.9 ALPHA=30, 7-SPECIES **** 


S X R YSH YSHP XSH RSH NO ITER NITTQT NTOT I K 

0.0 0.0 0.0 0.057298 0.0 -0.057298 0.0 60 60 60 1 I 

OS OF HEAT STAN CDF CDP CDTOT PWALL TWALL PW/PO 

0.20000 0 0.0 0.035446 0.074147 0.0 1.776036 1.776036 0.888018 2460.000000 1.000000 

YSHP ( S YSHP t S+D S/2 NEW YSHP ALPHA(S+DS/2 PHKS+DS/2 KAPPAIS KAPPA(S+DS/2 
0.0 0.000000 0.0 1.471372 1.471372 1.000000 0.981643 

USH VSH TSH RSH PSH VPG 

0.0 -0.099835 0.313485 9.967057 0.891793 0.0 

0.0 -2505.86 32762.80 

18201.56 



N 

Y/YSH 

U/USH 

V/VSH 

T/TSH 

R/RSH 

P/P SH ( APPR ) 

P/PSH 

CA 

CA6Q 

XM 

T DEG R 

L 

0.0 

c.o 

0.0 

0.075085 

13.261843 

0.995768 

1.059935 

0.0 

0.000002 

C.O 

2460.00 

2 

0.004777 

0.044398 

0.000120 

0.117487 

8.191109 

0.995768 

1.059935 

0.035481 

0.007009 

0.000113 

3849.20 

3 

0.009792 

0.080532 

0.000553 

0.150773 

6.210330 

0.995769 

1.059936 

0.064107 

0.150073 

0.000458 

4939.76 

4 

0.015059 

C. 112365 

0.001300 

0.179252 

5.100603 

0.995770 

1.059938 

0.088580 

0.603878 

0.000979 

5872.80 

5 

0.020588 

C. 141459 

0.002366 

0.204449 

4.376505 

0.995773 

1.059939 

0.109923 

0.912136 

0.001655 

6698.31 

6 

0.026394 

0.168627 

0.003758 

0.227086 

3.862194 

0.995777 

1.059941 

0.128647 

0.980755 

0.002474 

7439.96 

7 

0.032491 

0.194355 

0.005487 

0.247565 

3.476608 

0.995781 

1.059942 

0.145055 

0.994337 

0.00343 2 

8110.93 

8 

0.038892 

0*218960 

0.007562 

0.266144 

3.176490 

0.995787 

1.059943 

0.159357 

0.997847 

0.004528 

8719.61 

9 

0.045614 

0.242659 

0.0 09994 

0.283006 

2.936348 

0.995794 

1.059942 

0.171725 

0. 999009 

0.005764 

9272.06 

10 

0.052671 

0.265605 

0.012796 

0.298302 

2.740011 

0.995801 

1.059940 

0.182315 

0.999474 

0.007143 

9773.22 

11 

0.06C08 1 

0.287906 

0.015980 

0.312170 

2.576642 

0.995811 

1.059936 

0.191284 

0.999689 

0.008671 

10227.55 

12 

0.067862 

0.309639 

0.019563 

0.324736 

2.438672 

0.995822 

1.059929 

0.198793 

0.999799 

0.010356 

10639.25 

13 

0.076032 

0.330856 

0.023560 

0.336124 

2.320634 

0.995834 

1.059913 

0.205005 

0.999862 

0.012204 

11012.36 

14 

0.084610 

0.351589 

0.027993 

0.346453 

2.218485 

0.995848 

1.059903 

0.210085 

0.999900 

0.014225 

11350.76 

15 

0.093617 

0,371858 

0.032881 

0.355837 

2.129165 

0.995864 

1.059883 

0.214190 

0.999924 

0.016429 

11658.20 

16 

0.103075 

0.391672 

0.038248 

0.364384 

2.050326 

0.995881 

1.059857 

0.217472 

0.999940 

0.018825 

11938.25 

17 

0.113006 

0.411031 

0.044120 

0.372199 

1.980150 

0.995901 

1.059822 

0.220066 

0.999952 

0.021424 

12194.28 

18 

0. 123433 

0.429929 

0.050522 

0.379375 

1.917217 

0.995923 

1.059779 

0.222097 

0.999960 

0.024236 

12429.38 

19 

0.134381 

0.448361 

0.057481 

0.385998 

1.860415 

0.995948 

1.059724 

0.223669 

0.999966 

0.027274 

12646.36 

20 

0.145877 

G. 466320 

0.065026 

0.392144 

1.808875 

0.995975 

1.059657 

0.224874 

0.999971 

0.030548 

12847.74 

21 

0.157947 

C. 483802 

0.073185 

0.397883 

1.761912 

0.996005 

1.059575 

0.225786 

0.999975 

0.034068 

13035.76 

22 

0.17C621 

0.5008C8 

0.081985 

0.403273 

1.718987 

0.996038 

1.059475 

0.226467 

0.999978 

0.037847 

13212.37 

23 

0.183929 

t. 517349 

0.091452 

0.408368 

1.679677 

0.996074 

1.059356 

0.226967 

0.999980 

0.041894 

13379.27 

24 

0.197902 

G. 533443 

0.101614 

0.413213 

1.643640 

0.996113 

1.059214 

0.227324 

0.999982 

0,046219 

13538.00 

25 

0.212574 

0.549121 

0.112497 

0.417849 

1.610600 

0.996156 

1.059046 

0.227567 

0.999984 

0.050830 

13689.91 

26 

0.227980 

0.564425 

0.124125 

0.422316 

1.580325 

0.996202 

1.058848 

0.227720 

0.999985 

0.055743 

13836.26 

27 

0.244155 

0.579408 

0.136527 

0.426649 

1.552610 

0.996253 

1.058617 

0.227798 

0.999987 

0.060968 

13978.23 

28 

0.261140 

0.594137 

0.149730 

0.430885 

1.527267 

0.996308 

1.058348 

0.227814 

0.999988 

0.066517 

14116.99 

29 

0.278974 

0.608686 

0.163767 

0.435059 

1.504111 

0.996368 

1.058036 

0.227775 

0.999989 

0.072404 

14253.74 

30 

0.297699 

0.623140 

0.178676 

0.439209 

1.482955 

0.996432 

1.057676 

0.227685 

0.999990 

0.078645 

14389.73 

31 

0.317361 

0.637586 

0.194504 

0.443379 

1.463600 

0.996502 

1.057262 

0.227548 

0.999990 

0.085257 

14526.32 

32 

0.338006 

C. 652116 

0.211305 

0.447611 

1.445831 

0.996578 

1.056785 

0.227362 

0.999991 

0.092264 

14665.00 

33 

0.359683 

0.660817 

0.229151 

0.451958 

1.429416 

0.996661 

1.056238 

0.227126 

0.999992 

0.099687 

14807.41 

34 

0.382443 

0.681773 

0.248127 

0.456476 

1.414100 

0.996750 

1.055610 

0.226836 

0.999992 

0.107554 

14955.43 

35 

0.406342 

C. 697061 

0.268337 

0.461229 

1.399609 

0.996847 

1.054888 

0.226487 

0.999993 

0.115913 

15111.16 

36 

0.4 J1436 

G. 712748 

0.289908 

0.466293 

1.385650 

0.996952 

1.054059 

0.226072 

0.999994 

0.124807 

15277.07 

37 

0.457785 

C.72889C 

0.312991 

0.471755 

1.371918 

0.997066 

1 .053103 

0.225580 

0.999994 

0.134291 

15456.01 

38 

0.485451 

0.745533 

0.337766 

0.477721 

1.358091 

0.997190 

1.052000 

0.224995 

0.999995 

0. 144426 

15651.46 

39 

0.514500 

C.7627C9 

0 « 36444^ 

0.484320 

1.343837 

0.997324 

1.050724 

0.224298 

0.999995 

0.155286 

15867.68 

40 

0.545002 

C. 780442 

0.393279 

0.491720 

i. 328805 

0.997470 

1.049242 

0.223461 

0.999996 

0.166958 

16110.11 

41 

0.577029 

0.798740 

0.424574 

0.500138 

1.312614 

0.997628 

1.047514 

0.222442 

0.999996 

0.179567 

16385.92 

42 

0.6IC657 

C. 817602 

0.458705 

0.5C9873 

1.294836 

0.997800 

1.045493 

0.221184 

0.999997 

0.193227 

16704.88 

43 

0.645966 

C. 837010 

0.496148 

0.521351 

1.274951 

0.997986 

1.043114 

0.219600 

0.999997 

0.208087 

17080.93 

44 

0.683041 

C. 856930 

0.537543 

0.535204 

1.252293 

0.998186 

1.040293 

0.217559 

0.999997 

0.224356 

17534.78 

45 

0.721970 

C. 877301 

0.583786 

0.552415 

1.225958 

0.998403 

1.036914 

0.214848 

0.999998 

0.242336 

18098.65 

46 

0.7t>2845 

C • 8 780 3G 

0.636188 

0. 574585 

1. 194711 

0.998634 

1.032809 

0.211088 

0.999998 

0.262657 

18825.03 

47 

0.805764 

C. 918976 

0.696704 

0.604456 

1.156925 

0.998881 

1.027733 

0.205480 

0.999999 

0.286385 

19803.68 

48 

0.850829 

C. 939927 

0.768120 

0.646967 

1.110841 

0.999142 

1.021351 

0.196027 

0.999999 

C. 315260 

21196.44 

49 

0.898143 

C. 960592 

0.853243 

0.711490 

1.056246 

0.999416 

1.013441 

0.176912 

0.999999 

0.353212 

23310.40 

50 

0.947832 

0.980636 

3.947414 

0.816436 

1.C02283 

0.999699 

1.005289 

0.129755 

1.000000 

0.406458 

26748.73 

51 

1.C009J0 

1.000000 

0.999512 

l.OCOOOC 

1.000000 

l.OGOOOO 

I. 000000 

0.0 

1.000000 

0.456962 

32762.80 



N 

Y/RN 

C 


02 

NO 

N 


NQ+ 

N2 


E-/CC 

Y IN 

Y CM 

1 

0.0 

0.0 


0.23456D 00 

0.0 

0.0 


0.0 

0.76544D 

00 

0.0 


0.0 

0.0 

2 

0.00027 

0.354810- 

■01 

0.19169D 00 

0.14123D-01 

0.27265D-02 

0.33959D-04 

0.75594D 

00 

0.248770 

13 

0.00775 

0.01969 

3 

0.00056 

0.641C7D-01 

0.15748D 00 

0.2481 5D- 0 1 

C.55919D- 

-02 

0.632960-04 

0.74794D 

00 

0.35156D 

13 

0.01590 

0.04037 

4 

0.00086 

0 • 885 8 CD-01 

0.12877D 00 

0.32958D-01 

0.910670- 

-02 

0.91367D-04 

0.74049D 

00 

0.416800 

13 

0.02444 

0.06209 

5 

0.00116 

G. 109920 

00 

0.10434D 00 

0.38925D-C1 

0.13523D- 

-01 

0.119530-03 

0.733170 

00 

0.467850 

13 

0.03342 

0.08489 

6 

0.00151 

0 .1 28650 

00 

0.83544D-01 

0. 42958 D- Cl 

0.18994D- 

-01 

0. 148550-03 

0.725710 

00 

0.513120 

13 

0.04285 

0.10683 

7 

0.00186 

0.14505D 

00 

0. 65977D-0 1 

0.45268D— 01 

0. 256140-01 

0 • 17898D-Q3 

0.717910 

00 

0.556510 

13 

0.05274 

0.13396 

8 

0.00223 

0.15936D 

00 

0. 513090-01 

0.460 74D- Cl 

0.334320- 

-01 

0.211250-03 

0.70962D 

00 

0.600150 

13 

0.06313 

0.16036 

9 

0.00261 

0.17172D 

00 

0 • 29246D-01 

0.45604D— 01 

0.42451D- 

-01 

0.245720-03 

0.700730 

00 

0.645290 

13 

0.07404 

0.18807 

10 

0.003C2 

0.182310 

00 

0.294990-01 

0.44104D-C1 

0. 52641D- 

-01 

0.2 8267D-03 

0.691160 

00 

0.692700 

13 

0.08550 

0.21717 

11 

0.00344 

0.19128D 

00 

0.217770-01 

0.418230-01 

0. 639370- 

-01 

0.32233D-03 

0.68086D 

00 

0*742780 

13 

0.09753 

0.24772 

IZ 

0.00339 

0.19879D 

00 

0.157900-01 

0.39007D-C1 

0.762^90-01 

0. 364830-03 

0.669800 

00 

0.795710 

13 

0.11016 

0.27980 

13 

0.00436 

0 .205010 

00 

0.112500-01 

0.350820-01 

0.894660- 

-01 

0. 410220-03 

0.65799D 

00 

0.85141D 

13 

0.12342 

0.31349 

14 

0.00485 

0.21CC8D 

00 

0 • 78886D-02 

0.32650D-C1 

0. 10346D 

00 

0.45848D-03 

0.645460 

00 

0.909690 

13 

0.13734 

0.34885 

15 

0.00536 

C.21419D 

00 

0.54582D-02 

0.294750— Cl 

0.11809D 

00 

0.50949D-03 

0.6322 8D 

00 

0.970190 

13 

0.15197 

0.38599 

16 

0.00591 

0.217470 

00 

0.374240-02 

0. 26482D— C 1 

0.13322D 

00 

0. 56303D-03 

0.618520 

00 

0.103240 

14 

0.16732 

0.42499 

17 

0.00648 

0.22007D 

00 

0.25594D-0 2 

0 .23757 D— Cl 

0.14869D 

00 

0.618840-03 

0.60431D 

00 

0.109600 

14 

0.18344 

0.46593 

18 

0.00737 

0 .222100 

00 

0. 17616 D- 02 

0.21349D-01 

0.16436D 

00 

0. 676590-03 

0.589750 

00 

0.116010 

14 

0.20036 

0.50892 

19 

0.00770 

0.22367D 

00 

0.123440-02 

0.19273D-C1 

0.18008D 

00 

0.735900-03 

0.575010 

00 

0.122450 

14 

0.21813 

0.55406 

20 

0.00836 

0.224870 

00 

0.89166D-03 

0.1 7525D-01 

0.19570D 

00 

0.796350-03 

0.56022D 

00 

0.128830 

14 

0.23680 

0.60146 

21 

0.00905 

0.225790 

00 

0.671 62D- 03 

C • 1 6080D- C 1 

0.211C6D 

00 

0.857520-03 

0.545540 

00 

0.135130 

14 

0.25639 

0.65123 

22 

0.00978 

0.226470 

00 

0.531 16D-Q3 

0 • 1490BD-01 

0.22602D 

00 

0.91899D-03 

0.531150 

00 

0.141290 

14 

0.27696 

0.70348 

23 

0.01054 

0.22697D 

00 

0.441400-03 

0. 13971 D— Cl 

0.240440 

00 

0. 980330-03 

0.51720D 

00 

0.147270 

14 

0.29856 

0.75835 

24 

0.01134 

0.227320 

00 

0. 383620-03 

0.13236D— Cl 

0.254170 

00 

0.104110-02 

0.50384D 

00 

0.15305D 

14 

0.32125 

0.81597 

25 

G. 01218 

0.22757D 

00 

0. 346020-03 

0.126710-01 

0.267070 

00 

0.1 101 10-02 

0.491240 

00 

0.15860D 

14 

0.34506 

0.87646 

26 

0.01306 

0.227720 

00 

0 . 32 141D-0 3 

0.1 2249D-G1 

0.27902D 

CO 

0.115980-02 

0.479540 

00 

0.16392D 

14 

0.37007 

0.93998 

27 

0.01399 

0.227800 

00 

0 • 30552D- 03 

0. 119510-01 

0.289880 

00 

0.121700-02 

0.468050 

00 

0.169000 

14 

0.39633 

1.00667 

28 

0.01496 

0 .2278 ID 

00 

0.295860-03 

0.1 1761D-C1 

0.295560 

00 

0.127270-02 

0.45930D 

00 

0.17384D 

14 

0.42390 

1.07670 

29 

0.01598 

0.22777D 

00 

0.291070-03 

0 • 1 1672D-C1 

0.307960 

00 

0.132650-02 

0.45097D 

00 

0.178450 

14 

0.45285 

1.15023 

30 

0.01706 

0.227690 

00 

0.290410-03 

0.11677D-C1 

0.315040 

00 

0.137860-02 

0.443930 

00 

0.18284D 

14 

0.48324 

1.22744 

31 

0,01818 

0.22755D 

00 

0.293580-03 

0*117750- Cl 

0.32073D 

00 

0.142890-02 

0.438220 

00 

0.18704D 

14 

0.51516 

1.30850 

32 

C. 01937 

0.22736D 

00 

0 .30054D- 03 

0.1 1967D— 01 

0.325040 

00 

0. 14777 D-02 

0.43385D 

00 

0.19108D 

14 

0.54867 

1.39362 

33 

0.02061 

0.22713D 

00 

0.311450-03 

C.12257D-C1 

0. 327990 

00 

0.1 5251D-02 

0.430790 

00 

0.19497D 

14 

0.58386 

1.48300 

34 

0.02191 

0.226840 

00 

0.32667D-03 

0.1 2652D-01 

0. 32960D 

00 

0.157140-02 

0 .429010 

00 

0.198740 

14 

0.62080 

1.57684 

35 

0.02328 

0.226490 

00 

0.346710-03 

0.13161D-C1 

0.32996D 

00 

0.161700-02 

0.428430 

00 

0.202400 

14 

0.65960 

1.67538 

36 

0.02472 

Q.226C7D 

00 

0.372360-03 

0 . 13796D-C1 

0.329130 

00 

0.166200-02 

0.42897D 

00 

0.205970 

14 

0.70033 

1.77884 

37 

0.02623 

0.225580 

00 

0 • 40468D— 03 

0. 145 740— Cl 

0.32720D 

00 

0. 170680-02 

0.43053D 

00 

0.20942D 

14 

0.74310 

1.88748 

38 

0.02782 

0.224990 

00 

0.44521D-G3 

0. 15518D-01 

0.324260 

00 

0.1 7510D-02 

0.43303D 

00 

0.212680 

14 

0.78801 

2.00155 

39 

0.02948 

0.22430D 

00 

0.49618D-03 

0.166630-01 

0.32034D 

00 

0.17941D-02 

0 .436400 

00 

0.21563D 

14 

0.83517 

2.12132 

40 

0.03123 

0.223460 

00 

C.56092D-03 

0.1 8054D-C 1 

0.315480 

00 

0.183460-02 

0.44061D 

00 

C.21803D 

14 

0.88468 

2.24708 

41 

0.03306 

0.22244D 

00 

0.644670-03 

0 • 1 9759D-01 

0.309640 

00 

0.186970-02 

0.445650 

00 

0.219490 

14 

0.93667 

2.37913 

42 

0.03499 

0.221180 

00 

0. 756220-03 

0.21875D-C1 

0.302690 

00 

0.189470-02 

0 • 45 1600 

00 

0.21941D 

14 

0.99125 

2.51778 

43 

0.03701 

0.219600 

00 

0.911900-03 

0.245390-01 

0.294420 

00 

0*1 9019D-02 

0.45862D 

00 

0.216870 

14 

1.04857 

2.66337 

44 

0.03914 

0.217560 

00 

0. 1 1465D-02 

0. 27942D— 01 

0.264460 

00 

0.18800 D-02 

0.46701D 

00 

0.21056D 

14 

1.10875 

2.81623 

45 

0.04137 

0.214850 

00 

0 . 15460D-0 2 

0.32337D-C1 

0.272190 

00 

0.1 8129D-02 

0.477260 

00 

0.198780 

14 

1.17194 

2.97674 

46 

0.04371 

0.211C9D 

00 

0.23530D-02 

0 .3 8002D— 01 

0.256580 

00 

0.1 6803D-02 

0.49030D 

00 

0.179540 

14 

1.23829 

3.14527 

47 

0.04617 

0.20548D 

00 

0.43128D-02 

C.45057D— Cl 

0.235880 

00 

0.146110-02 

0.507810 

00 

0.151190 

14 

1.30796 

3.32223 

48 

0.04875 

0.196C3D 

00 

0. 981980-02 

0.527660-01 

0.20715D 

00 

0.114280-02 

0.533100 

00 

0.1 13 540 

14 

1.38112 

3.50803 

49 

0.05146 

0 • 1 769 ID 

00 

0.266450-01 

0. 57455 D- 01 

0.165280 

00 

C. 738090-03 

0.572970 

00 

0.697250 

13 

1.45793 

3.70313 

50 

0.05431 

G.12976D 

00 

0 • 79327D-0 1 

0.475010-01 

0.101540 

00 

0 . 30985D- 03 

0.64157D 

00 

0.277750 

13 

1.53858 

3.90798 

51 

0.05730 

0.0 


0.23456D 00 

0.0 

0.0 


0.0 

0.76544D 

00 

0.0 


1.62326 

4.12307 



K. = 1 , I = 2, S - 0.200, NITER = It DIFI = 3.9L2D-02 5,3920-02 2.9900-02 4.413D-02 4.5550-02 6. 8850-02 7.5090-02 4. 7630-02 
K = 1, I = 2 # S = 0 • 200 » NITER = 2, DIFI = 2.7620-02 1.550D-02 2.9I2D-0 2 2.836D-02 5.926D-02 2.6390-02 5.8290-02 1.1630-02 
K = l * I ■ 2, S = G .200 ♦ NITER = 3, DIFI = 6.8510-03 5.341D-03 1.9150-02 2. 9030-02 2.3040-02 1.811D-02 2.6260-02 1.144D-02 
K =1, I = 2» S = 0.200, NITER = 4, DIFI = 1.992D-03 3.587D-03 3.102D-03 7.0730-03 7.086D-03 3. 7810-03 1.5960-02 9.2450-04 


**** FREE FLIGHT HYPERBOLOID ALT=245K FT. M=26.9 ALPHA=30, 7-SPECIES **** 


S X R YSH YSHP XSH RSH NO ITER NITTOT NTGT I K 

0.200000 0.019709 0.198780 0.059483 0.021851 -0.038643 0.210324 4 64 64 2 1 

OS CF HEAT STAN CDF CDP CDTOT PWALL TWALL PW/PO 

0 . 200 COO 0 • 0 1 36i 6 0.033625 0.070339 0.002658 1.665276 1.667934 0.843597 2460.000000 0.949977 

YSHP ( S YSHP ( S+DS/2 NEW YSHP ALPHAIS+DS/2 PHIIS+DS/2 KAPPAIS KAPPACS+DS/2 
0.000000 0.000000 0.021851 1.286004 1.286004 0.930449 0.856159 

USH VSH TSH RSH PSH VPG 

0.190109 -0.C99149 0.305478 9.857033 0.859673 0.0 

4771.75 -2488.64 31925.95 

17736.65 


K =1, 

I = 

3, 

S = 

0.400, 

NITER 


I , 

DIFI = 7.5040-02 

8.836C-02 

8. 2050-02 

1.429D-01 

1.2280-01 

2.003 D- 01 

1. 8990-01 

1.1580-01 

K =1, 

I = 

3, 

S = 

0.400, 

NITER 

= 

2, 

DIFI = 5.0940-02 

4.1440-02 

5.4230-02 

8.8 57D-02 

1.6340-01 

5.9090-02 

1. 7650-01 

2.66 8D-02 

K =1, 

I = 

3, 

S = 

0.400, 

NITER 


3 , 

DIFI = 2.2 820-02 

1.5480-02 

3.5680-02 

5.958D-02 

4.7280-02 

2.923D-02 

6.188D-02 

1.858D-02 

K =1, 

I = 

3, 

s = 

0.400, 

NITER 


4, 

DIFI = 2.834D-03 

5.0030-03 

4. 085 D- 03 

1.332D-02 

1 • 347D-02 

8.661 D- 03 

2 • 194D-02 

1.600D-03 

K =1, 

I = 

3, 

s = 

0.400, 

NITER 


5, 

DIFI = 6.9260-04 

6. 4430-04 

4. 4020-03 

3.9190-03 

6.4910-03 

2.995D-03 

1.236D-02 

2.9200-03 


**** FREE FLIGHT HYPERBOLOID ALT=245K FT. M=26.9 £LPHA=30, 7-SPECIES **** 


S X R YSH YSHP XSH RSH NO ITER NITTOT NTOT I K 

0.400000 0.075579 0.390592 0.066C38 0.043701 C. 013918 0.414237 5 69 69 3 1 

DS CF HEAT STAN CDF CDP CDTOT PWALL TWALL PW/PO 

0.200000 0.022658 0.029178 0.061036 0.005531 1.569058 1.574589 0.738811 2460.000000 0.831977 

YSHP ( S YSHP ( S+OS/2 NEW YSHP ALPHAIS + DS/2 PHKS+DS/2 KAPPAtS KAPPAtS+OS/2 
0.000300 O.COOOOO 0.043701 1.132012 1.132012 0.770250 0.682420 

USH VSH TSH RSH PSH VPG 

0.352899 -C. 097389 0.285411 9.573061 0.78C431 0.0 

8857.76 -2444.46 29828.70 

16571.50 



K =1 1 

I 

= 

4, 

S = 

0.600, 

NITER = 

1, 

DIFI 

= 7.4290-02 

1 • 0C9D-01 

1.224D-0 1 

2.4370-01 

1.631D-01 

3.0400-01 

2.412D-01 

1.3250-01 

K = 1, 

I 


4, 

S = 

0.600, 

NITER = 

2, 

DIFI 

= 2.5630-02 

5.542D-02 

5.4000-02 

1.450D-01 

2.2330-01 

6.5940-02 

2.4600-01 

2.6280-02 

K =1, 

I 

= 

4, 

s = 

0.600, 

NITER = 

3, 

DIFI 

= 2.881D-02 

1. 6460-02 

3.541D-02 

6.7300-02 

4.5250-02 

2.5040-0 2 

7.077D-02 

1.6200-02 

K =1, 

I 


4, 

s = 

0 • 600 , 

NITER = 

4, 

DIFI 

- 2 • 1Q2D-0 3 

4. 213D-03 

2. 8880-03 

1.3260-02 

1 • 319D-02 

1.3390-02 

1 • 986D-02 

1.5300-03 

K =1, 

I 

= 

4, 

s = 

0.600, 

NITER = 

5, 

01 F I 

= 6. 4210-04 

1.083D-03 

4.1440-03 

4. 9300-03 

5.8580-03 

2.8270-03 

1.055D-02 

2.183D-03 


**** FREE FLIGHT HYPERBOLOIO ALT=245K FT. M=26.9 ALPHA=30, 7-SPECIES **** 


s 

0.600000 

X 

0.160212 

R 

0.571609 

YSH 

0.076696 

YSHP 

0.062874 

XSH 

0.093008 

RSH NO ITER 

0.608567 5 

NITTOT NTOT I K 

74 74 4 1 

DS 

0.200000 

CF 

0.026259 

HEAT 

0.024101 

STAN 

0.050415 

CDF 

0.0C8950 

CDP 

1.444526 

CDTOT PWALL 

1.453476 0.623041 

TWALL PW/PO 

2460.000000 0.70X608 

YSHP l S 
-0.000000 

YSHP i S+DS/2 
0.000000 

NEW YSHP 
0.062874 

ALPHA ( S +DS/ 2 
1.011943 

PHI ( S+DS/2 
1.011943 

KAPPAIS 

0.599116 

KAPPAt S+DS/2 
0.523715 


USH 

VSH 

TSH 

RSH 


PSH 

VPG 



0.477527 -0.095066 0.260795 9.218269 0.686812 0.0 

11985.92 -2386.15 27256.05 


15142.25 


1 K —It 

I = 

5, 

S = 

0.800, 

NITER = 

1, 

DIFI 

= 6. 5970-02 

1.0 12D-01 

1.453D-01 

3.3200-01 

1.581D-01 

3.5680-01 

3. 2500-01 

1.09 ID- 01 

3 K =1, 

I = 

5, 

S = 

0.800, 

NITER = 

2, 

DIFI 

- 1.7190-02 

5.3640-02 

6.5290-02 

1.6860-01 

2.2640-01 

5.874D-02 

2.295D-01 

2.2780-02 

K =1, 

I = 

5, 

S = 

0.800, 

NITER = 

3, 

DIFI 

= 2.6750-02 

1 .3820-02 

3.0160-02 

6.218D-02 

3 .3200-02 

2. 447D-02 

5.7730-02 

1. 2200-02 

x -1, 

I = 

5, 

s = 

0.800, 

NITER = 

4, 

DIFI 

= 3.7400-03 

3.851 D- 03 

3.9220-03 

1. 0220-02 

1. 0290-02 

1.3360-02 

1. 3190-02 

1. 3750-03 

K =1, 

I = 

5, 

s = 

0.800, 

NITER = 

5, 

DIFI 

= 4.7690-04 

1 .2520-03 

3.3270-03 

4.6760-03 

4.2970-03 

2.3240-03 

6. 529D-03 

1.403D-03 


**** FREE FLIGHT HYPERBOLOIO ALT=245K FT. M=26.9 ALPHA=30, 7-SPECIES **** 


S Xv R YSH YSHP XSH RSH NO ITER NITTOT NTQT I K 

0.800000 0.265984 0.741194 0.090693 0.077092 0.191535 0.792987 5 79 79 5 1 

DS CF HEAT STAN CDF CDP CDTOT PWALL TWALL PW/PO 

0.200000 0.026611 0.019757 0.041328 0.012057 1.318461 1.330517 0.523949 2460.000000 0.590020 

YSHP ( S YSHP ( S+DS/2 NEW YSHP ALPHAIS+DS/2 PHKS+DS/2 KAPPAIS KAPPAIS+DS/2 
O.OOOOCO 0.000000 0.077092 0.920184 0.920184 0.457400 0.400051 


USH 

VSH 

TSH 

RSH 

PSH 

VPG 

0.567944 

-0.C92485 

0.236825 

8.883399 

0.600965 

0.0 

14255.39 

-2321.38 

24750.93 

13750.52 





I 


K =1, 

I = 

6 , 

S = 

1.000, 

NITER = 

It 

DIFI = 5.623D-02 

9.548D-02 

1.540D-01 

3.766D-01 

1 • 462D-01 

3.770 D- 01 

3.9180-01 

8. 13 50- 02 

K =1, 

I = 

6, 

S ^ 

1 .000 * 

NITER = 

2 1 

DIFI = 1. 2010-02 

4.527D-C2 

6.800D-02 

1.714D-01 

2 .071D-01 

4.9290-0 2 

2 .0020-01 

1.8390-02 

K =1, 

I = 

6 t 

S = 

1.000, 

NITER = 

3, 

DIFI = 2 .2 340-02 

1.087D-02 

2.576D-02 

6.088D-02 

2.2 750-02 

2.206D-02 

4.6250-02 

8.598D-03 

K =lt 

I = 

6, 

S = 

1 .000 , 

NITER = 

4, 

DIFI = 4.093D-03 

3.0C3D-03 

4.041D-0 3 

7.6 56D-03 

8.1610-03 

1 • 156D-02 

8.5310-03 

1.119D-03 

K =1, 

I = 

6, 

S = 

1 .000, 

NITER = 

5, 

DIFI = 3.592D-04 

1 • 029D-03 

2.342D-03 

3.672D-03 

2.9630-03 

2 • 090D-03 

4 .0940-03 

8.368D-04 


**** FREE FLIGHT HYPERBOLOID ALT=245K FT. M=26.9 ALPHA=30, 7-SPECIES **** 


S X R YSH YSHP XSH RSH NO ITER NITTOT NTOT I K 

1.000000 0.386918 0.900366 0.106946 0.085438 0.304307 0.968283 5 84 84 6 1 

OS CF HEAT STAN CDF CDP CDTOT P WALL TWALL PW/PO 

0.200000 0 . 02559 1 0.016469 0.034450 0.014560 1.204355 1.218915 0.447458 2460.000000 0.503884 

YSHP ( S YSHP ( S+DS/2 NEW YSHP ALPHACS+DS/2 PHIfS+DS/2 KAPPAfS KAPPA(S+DS/2 
0.000000 O.CCCGOO 0.085438 0.849778 0.849778 0.350905 0.308952 

USH VSH TSH RSH PSH VPG 

0.632912 -G. C 89807 0.215602 8.610272 0.530179 0.0 

15886. C8 -2254.16 22532.88 

12518.27 


N 

Y/YSH 

U/USH 

V/VSH 

T/TSH 

R/RSH 

P/PSH* APPR) 

P/PSH 

CA 

CAEQ 

XH 

T DEG R 

1 

0.0 

0.0 

0.0 

0.109400 

7.735541 

0.843976 

0.900964 

0.0 

0.000004 

0.0 

2465.10 

2 

0.004777 

0.045377 

0.000117 

0.166077 

4.950164 

0.843982 

0.900970 

0.030088 

0.006533 

0.274894 

3742.18 

3 

0.009792 

0.083085 

0.000536 

0.210122 

3.820344 

0.844004 

0.900993 

0.054964 

0.130814 

0.446973 

4734.65 

4 

0.015059 

0.116797 

0.001265 

0.247439 

3.176770 

0.844049 

0.901040 

0.076726 

0.545970 

0.575939 

5575.52 

5 

0.020588 

0.147983 

0.002313 

0.28C210 

2.752112 

0.844118 

0.901112 

0.096163 

0.883606 

0.681070 

6313.94 

6 

0.026394 

0.177413 

0.003698 

0.309485 

2.447904 

0.844215 

0.901212 

0.113649 

0.973406 

0.771418 

6973.58 

7 

0.032491 

0.205549 

0.005433 

0.335849 

2.218337 

0.844342 

0.901342 

0.129381 

0.992178 

0.851868 

7567.64 

8 

0.038892 

0.232691 

0.007537 

0.359665 

2.038805 

0.844501 

0.901506 

0.143474 

0.997055 

0.925466 

8104.29 

9 

0.045614 

0.259043 

0.010027 

0.381184 

1.894734 

0.844695 

0.901704 

0.156008 

0.998659 

0.994124 

8589.18 

10 

0.052671 

0.284746 

0.012921 

0.400596 

1.776854 

0.844928 

0.901942 

0.167051 

0.999294 

1.059334 

9026.58 

11 

0 • 06008 1 

0.309898 

0.016239 

0.418061 

1.678925 

0.845203 

0.902221 

0.176672 

0.999585 

1.122034 

9420.12 

12 

0.067862 

0.334567 

0.020003 

0.433729 

1.596557 

0.845525 

0.902547 

0.184954 

0.999733 

1. 18287 C 

9773.16 

13 

0.076032 

0.358792 

0.024237 

0.447746 

1.526549 

0.845897 

0.902922 

0.191988 

0.999816 

1.242309 

10089.00 

14 

0.084610 

0.382594 

0.028965 

0.46C258 

1.466500 

0.846326 

0.903352 

0.197880 

0.999866 

1.300628 

10370.94 

15 

0.093617 

0.405977 

0.034216 

0.471415 

1.414567 

0.846816 

0.903842 

0.202745 

0.999897 

1.357968 

10622.34 

16 

0.103075 

C. 428930 

0.040023 

0.481368 

1.369308 

0.847373 

0.904396 

0.206698 

0.999918 

1.414364 

10846.61 

17 

0.113006 

0.451435 

0.046419 

0.490268 

1.329579 

0.848003 

0.905020 

0.209857 

0.999933 

1.469775 

11047.16 

18 

0.123433 

0.473461 

0.053440 

0.498265 

1.294469 

0.848714 

0.905719 

0.212333 

0.999944 

1.524149 

11227.34 

19 

0.134381 

0.494976 

0.061127 

0.505503 

1.263243 

0.849510 

0.906498 

0.214229 

0.999952 

1.577364 

11390.43 

20 

0.145877 

0.515946 

0.069519 

0.512118 

1.235317 

0.850401 

0.907364 

0.215635 

0.999958 

1.629290 

11539.50 

21 

0.157947 

0.536337 

0.C78657 

0.518239 

1.210226 

0.851392 

0.908321 

0.216631 

0.999963 

1.679809 

11677.41 

22 

0.17C621 

0.556125 

0.088582 

0.523977 

1.187605 

0.852491 

0.909375 

0.217282 

0.999967 

1.728827 

11806.71 

23 

0.183929 

0.575292 

0.099334 

0.529434 

1.167173 

0.853707 

0.910531 

0.217643 

0.9999 70 

1.776297 

11929.67 

24 

0.197902 

0.593833 

0.110950 

0.534696 

1.148718 

0.855046 

0.911794 

0.217757 

0.999973 

1.822216 

12048.23 

m 25 

0.212574 

0.611759 

0.123464 

0.539835 

1.132081 

0.856519 

0.913169 

0.217656 

0.999975 

1.866623 

12164.05 

10 26 

0.227980 

0.629098 

0.136911 

0.544913 

1.117145 

0.858133 

0.914663 

0.217368 

0.999978 

1.909652 

12278.46 

27 

0.244155 

0.645893 

0.151319 

0.549979 

1.103824 

0.859900 

0.916282 

0.216910 

0.999979 

1.951466 

12392.61 

28 

0.261140 

0.662201 

0.166719 

0.555074 

1 .092049 

0.861829 

0.918030 

0.216298 

0.999981 

1.992268 

12507.41 

29 

0.278974 

0.678095 

0.183141 

0.560232 

1.081759 

0.863933 

0.919917 

0.215543 

0.999983 

2.032290 

12623.65 

30 

0.297699 

0.693653 

0.200618 

0. 565487 

1.072894 

0.866225 

0.921949 

0.214655 

0.999984 

2.071772 

12742.04 

31 

0.317361 

0 .708956 

0.219187 

0.570867 

1 .065386 

0.868721 

0.924135 

0.213641 

0.999985 

2.110949 

12863.27 

32 

0.338006 

0.724085 

0.238895 

0.576403 

1 . 059 L 53 

0.871437 

0.926485 

0.212508 

0.999986 

2.150028 

12988.02 

33 

0.359683 

0.739112 

0.259798 

0.582130 

1.054098 

0.874393 

0. 929009 

0.211263 

0.999987 

2.189174 

13117.08 

34 

0.382443 

0.754100 

0.281965 

0.588087 

1.050110 

0.877608 

0.931718 

0.209910 

0.999988 

2.228497 

13251.29 

35 

0.406342 

0.769095 

0.30548C 

0.594317 

1.047058 

0.881107 

0.934622 

0.208451 

0.999989 

2.268048 

13391.67 

36 

0.431436 

C. 784131 

0.330443 

0.600872 

1.C44805 

0.884914 

0.937731 

0.206886 

0.999990 

2.307749 

13539.38 

37 

0.457785 

0.799226 

0.356970 

0.607815 

1.043205 

0.889056 

0.941056 

0.205208 

0.999991 

2.347435 

13695.81 

38 

0.485451 

0.814381 

0.385194 

0.615217 

1.042112 

0.893564 

0.9446C4 

0.203405 

0.999992 

2.387220 

13862.60 

39 

0.514500 

0.829588 

0.415266 

0.623167 

1.041382 

0.898467 

0.948379 

0.201458 

0.999993 

2.42697Q 

14041.74 

40 

0.545002 

0.844827 

0.447357 

0.631776 

1.040875 

0.903800 

0.952384 

0.199334 

0.999993 

2.466565 

14235.73 

41 

0.577029 

0.860067 

0.481666 

0.641190 

1.040448 

0.909595 

0.956613 

0.196987 

0.999994 

2.505820 

14447.85 

42 

0.610657 

0.875272 

0.518428 

0.651606 

1.039936 

0.915890 

0.961055 

0.194355 

0.999995 

2. 544568 

14682.57 

43 

0.645966 

0.890394 

0.557941 

0.663312 

1.039133 

0.922720 

0.965685 

0.191353 

0.999995 

2.582159 

14946.33 

44 

0.683041 

0.905381 

0.600599 

0.676731 

1.037746 

0.930121 

0.970457 

0.187866 

0.999996 

2.618825 

15248.69 

45 

0.721970 

0.920171 

0.646947 

0.692514 

1.035349 

0.938127 

0.975298 

0.183728 

0.999996 

2.654758 

15604.33 

46 

0.762845 

0.934691 

0.697768 

0.711691 

1.031321 

0.946767 

0.980002 

0.178648 

0.999997 

2.690201 

16036.45 

47 

0.805764 

C. 948854 

0.754165 

0.735939 

1.024828 

0.956061 

0.984616 

0.171982 

0.999998 

2.727327 

16582.82 

48 

0.85C829 

0.962561 

0.817559 

0.768108 

1.014973 

0.966017 

0.988629 

0.162011 

0.999998 

2.767447 

17307.66 

49 

0.898148 

0.975697 

0.889089 

0.813435 

1.0016C3 

0.976628 

0.991894 

0.143769 

0.999999 

2.817515 

18329.04 

50 

0.947832 

0.988163 

0.966070 

0.882724 

0.988699 

0.987900 

0.995098 

0.102744 

0.999999 

2.908442 

19890.30 

51 

1.000000 

1.000000 

1.023879 

1.000000 

1.000000 

1.000000 

1.000000 

0.0 

0.999999 

3.113401 

22532.88 



E-/CC 


N 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 
5 25 
° 26 

27 

26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


Y/RN 

0.0 

0.00055 
0.00113 
0.00174 
0.00238 
0.00305 
0.00375 
0.00449 
0.00527 
0.00608 
0.00694 
0.00784 
0.00878 
0.00977 
0.01081 
0.01190 
0.01305 
0.01426 
0.01552 
0.01685 
0.01824 
0.01970 
0.02124 
0.02286 
0.02455 
0.02633 
0.02820 
Q. 03016 
0.03222 
0.03438 
0.03665 
0.03904 
C. 04154 
0.04417 
0.04693 
0.04983 
0.05287 
0.0 5606 
0.05942 
0.06294 
0.06664 
0.07052 
0.07460 
0.07888 
0.08338 
0.08810 
0.09306 
0.09826 
0.10373 
0.1C946 
0.11549 


0 

0.0 

0.300880-01 
0.549640-01 
0.767260-01 
0.96163D-01 
0.113650 00 
0.12938D 00 
0.14347D 00 
0.1 560 ID 00 
0.167050 00 
0.176670 00 
0.184950 00 
0.191990 00 
0.197880 00 
0.202740 00 
0.2067CD 00 
0.2C986D 00 
0.212330 00 
0.214230 00 
0.215640 00 
0.216630 00 
0.2 172 8D 00 
0.217640 00 
0.217760 00 
0.217660 00 
0.217370 00 
0.216910 00 
0.216300 00 
0.21554D CO 
0.214650 00 
0.213640 00 
0.212510 00 
0.211260 00 
0.209910 00 
0.208450 CO 
0.206890 00 
0 .2052 ID 00 
0 .2034 ID 00 
0 .201460 00 
0.199330 00 
0.19699D 00 
0.194360 00 
0.191350 00 
0.187870 00 
0.183730 00 
0.17865D 00 
0.171980 00 
0.162C1D 00 
0.143770 00 
0.10274D 00 
0.0 


02 

0.23456D 00 
0.197230 00 
0.166590 00 
0.140130 00 
0.11691D 00 
0.964910-01 
0.786 14D-0 1 
0.631150-01 
0.498580-01 
0.386990-01 
0.294810-01 
0 . 220220-01 
0.16121D-01 
0.11 563D-0 1 
0.813 L2D-02 
0.561460-02 
0.381840-02 
0.25713D-G2 
0. 172870-02 
0.117450-02 
C .819050-03 
0.596350-03 
0.459770-03 
0.377750-03 
0.32979D-03 
0. 303110-03 
0 .29010D-03 
C. 286420-03 
0.28983D-03 
G.29932D-03 
C.31469D-03 
0.336330-03 
0.365060-03 
0.402170-03 
0.449450-03 
0.509380-03 
0.585340-03 
0.682050-03 
0 . G0618D-03 
0.967550-03 
0. U814D-02 
0.147300-02 
0.188950-02 
0.252780-02 
0.360900-02 
0.567160-02 
0 • 1 0068D-0 1 
0 . 202000-01 
0.444320-01 
0.10247D 00 
0.23456D 00 


NO 

0.0 

0.115830-01 
0.20703D— Cl 
0. 279950-01 
C. 336880-C1 
0 . 37890D-Q1 
0.407 16D— Cl 
0.422350-01 
0.42574D-C1 
0 .41 8750-C1 
0.403C8D— Cl 
0 • 38062D-C 1 
C.35336D-01 
0.32325D-C1 
0.292140-01 
0.261 59D-C 1 
0. 232880-01 
0.20689D-C1 
0. 184200-01 
0. 165020— Cl 
0.149340-01 
0.13696D— Cl 
0.12754D-C1 
0.120730-01 
0. 116180-01 
0.113560-01 
0.112620-01 
0.113200-01 
0. 115170-01 
0.11852 D— 0 1 
0.123250-01 
0.1 29460-C 1 
0.13729D-C1 
0.14693D-01 
0.1 5864D-C 1 
0.172770-01 
C.18974D-C1 
0 . 210110-01 
0.2 34590- C 1 
0.264070-01 
0.29965D-C1 
0. 342600-01 
0.3942 8D-C 1 
0.45572D-C1 
0.52680D-01 
0.604190-01 
0. 677060-01 
0 • 7 18570— Cl 
0.67279D-C1 
0.44887D-C1 
0.0 


N 

0.0 

0. 166720-02 
0.34 126D— 02 
0. 555120-02 
0.826280-02 
0. 116770-01 
0.15893D-01 
0.209850-01 
C.26S97D-01 
0.33949D-01 
C. 418290-01 
0. 50596D-0 1 
0.60 184D— 01 
0. 70 502D-0 1 
0. 814350-01 
0.926550-01 
0.104620 00 
0.11656D 00 
0.12853D 00 
Q. 140350 00 
0.15 I860 00 
0.16288D 00 
0.173250 00 
0.182790 00 
0.191370 CO 
0.198830 00 
0.205050 GO 
0.2Q9940 00 
0 .213430 00 
0.215460 00 
0.216040 00 
0.215190 00 
0.212980 00 
0.209510 00 
0.2C489D 00 
0.199240 00 
0.19271D 00 
0. 18 5420 00 
0.177460 GO 
0.168920 00 
0.15982D 00 
0.150170 CO 
0.13990D 00 
0 • 12887D 00 
0.11687D 00 
0.10352D CO 
0. 883080-01 
0.7C599D-01 
0.49857D-01 
0. 261470-01 
0.0 


N0 + 

0.0 

0.224980-04 
0. 42001D-G4 
0 • 60526D-04 
0.78920D-04 
0.976710-04 
0. 11712 D- 03 
0 • 1 3755D-03 
0.159180-03 
0.182200-03 
0.206770-03 
0.232990-03 
0.260920-03 
0 • 29055D-Q3 
0.321830-03 
0.354630-03 
0.388770-03 
0.424020-03 
0.460130-03 
0.496800-03 
0.533720-03 
0. 570570-03 
0.607040-03 
0.642830-03 
0. 67765D-03 
0.711240-03 
0.743370-03 
0.773840-03 
0.802470-03 
0.829140-03 
0.853760-03 
0.876250-03 
0 . 89657D-03 
0.914670-03 
0.930480-03 
0.943830-03 
0.954390-03 
0.961580-03 
0. 964460-03 
0 .961580-03 
0.950800-03 
0.929160-03 
0.892790-03 
0.837020-03 
0.75698D-03 
0 • 64B94D-03 
0 • 51295D-03 
0.356360-03 
0. 19741D-03 
0.66120D-04 
0.0 


N2 


0.765440 

00 

0.759410 

00 

0. 754290 

00 

0.74954D 

00 

0.744890 

00 

0.74019D 

00 

0.73528D 

00 

0.73005D 

00 

0. 724400 

00 

0.71824D 

00 

0.711500 

00 

0 • 7041 3D 

00 

0 • 6961 ID 

00 

0.68744D 

00 

0.678150 

00 

0.668320 

00 

0.658030 

00 

0.64742D 

00 

0.636630 

00 

0.625840 

00 

0.615220 

00 

0.60497D 

00 

0.59529D 

00 

0.586360 

00 

0.578350 

00 

0.57143D 

00 

0.56574D 

00 

0.561380 

00 

0.55842D 

00 

0.556910 

00 

0.55683D 

00 

0.558140 

00 

0.56076D 

00 

0.56457D 

00 

0.569420 

00 

0.575140 

00 

0.581570 

00 

0.58852D 

00 

0.59585D 

00 

0.603410 

00 

0.61109D 

00 

0 • 6 1 88 1 D 

00 

0.62654D 

00 

0.634330 

00 

0.64236D 

00 

0.65109D 

00 

0.661420 

00 

0.67498D 

00 

0. 694470 

00 

0.72368D 

00 

0.765440 

00 


0.0 


0.86045D 

12 

0.12397D 

13 

0.148 560 

13 

0.167810 

13 

0.184720 

13 

C. 200740 

13 

0.21667D 

13 

0.23302D 

13 

C.25013D 

13 

0.26822D 

13 

0.287400 

13 

0.30774D 

13 

0.32921D 

13 

0.35173D 

13 

0.375 1 80 

13 

0.399360 

13 

0.42408D 

13 

0.449090 

13 

0.474160 

13 

0.49905D 

13 

0.52353D 

13 

0 • 54741 D 

13 

0. 5 70 5 2D 

13 

0 .5927 ID 

13 

0.61389D 

13 

0.63397D 

13 

0.65291D 

13 

0.67069D 

13 

0.68731D 

13 

0.70276D 

13 

0.71705D 

13 

0.73018D 

13 

0.74210D 

13 

0.75274D 

13 

0 .761890 

13 

0.76923D 

13 

0.77422D 

13 

0.775990 

13 

0.773300 

13 

0.764320 

13 

0.74655D 

13 

C. 716780 

13 

0.671110 

13 

0.605530 

13 

0 • 5 1709 D 

13 

0.406150 

13 

0.27946D 

13 

0.152760 

13 

0.505080 

12 

0.0 



Y IN 
O.C 

0.01563 
0.03204 
0.04927 
0.06736 
0.08636 
0.10630 
0.12725 
0.14924 
C. 17233 
0.19657 
0.22203 
0.24876 
0.27683 
0.30630 
0.33724 
0.36973 
0.40385 
0.43967 
0.47728 
0.51677 
0.55824 
0.60178 
0.64750 
0.69550 
0.74591 
0.79083 
0.85440 
0.91275 
0.97402 
1.03835 
1.10589 
1.17682 
1 .25129 
1 .32948 
1.41158 
1.49779 
1.58831 
1.68335 
1.78315 
1.88793 
1.99796 
2.11348 
2.23479 
2.36215 
2.49589 
2.63631 
2.78376 
2.93857 
3.10113 
3.27182 


Y CM 
0.0 

0.03970 
0.08138 
0.12514 
0.17110 
0.21935 
0.27001 
0.32321 
0.37907 
0.43772 
0.49930 
0.56396 
0.63186 
0.70315 
0.77800 
0.85660 
0.93912 
1.02578 
1.11676 
1.21230 
1.31261 
1.41793 
1.52853 
1.64465 
1.76658 
1.89461 
2.02903 
2.17018 
2.31839 
2.47400 
2.63740 
2.80897 
2.98911 
3.17826 
3.37687 
3.58541 
3.80438 
4.03430 
4.27571 
4.5 29 19 
4.79535 
5.07481 
5.36825 
5.67636 
5.99987 
6.33956 
6.69624 
7.07075 
7.46398 
7.87688 
8.31042 



APPENDIX C: FORTRAN IV PROGRAM 


This appendix gives a list of the program common statements, a listing 
of the common statements as they occur by subroutines and a complete listing 
of the FORTRAN IV source statements for PROGRAM. VISLNABB. 


List of Common Statements 


CCMMON /body/ HANGLE,XJFAC,IGEGM,JFAC 

COMMON /COMABZ/ ALPHS B ( 1 5 , 1 1 ) , BETASB ( 1 5 , 1 1 ) , ZSUB ( 5 , 6 ) , AL SUB ( 1 5 ) , B E 
1TSUB(15) ,GAMMMI( 15,6) , GAMMPL < 1 5 , 6 ) 

CCMMCN /COMARL/ XNSP ( 202 ) , XSOL ( 200 J 

COMMON /COMAR 1/ A A ( 51 ) , BB ( 5 1 ) , C AEQ < 5 1 ) , CON ( 5 1 ) , CO 1 ( 51 ) , C 02 ( 5 1 ) ,CP S 
1T(51I,EMBAR<51),PC<51),PCN<51) ,PE<51) ,PFAC<51) , PS ( 5 1 ) , PO ( 5 1 ) , PON ( 5 
21) , PI (51), PIN (51) ,P2(51),P2N(51),Q1(51),Q2(51) , RC ( 51 ) , RCON< 5 1 ) , RCS 
3F(51),RNSH(5i),RVISC( 5 1 ) , R 1 ( 5 1 ) , R 2 ( 5 1 ) , TC ( 5 1 ) , T 1 ( 5 1 ) , T 2 ( 51 ) , T20 ( 5 1 
4) ,T21 ( 51 ) , UC ( 51 ) ,UCN( 51 ) , UC1 ( 5 1 ) , U1 ( 51 ) , U2 ( 51 ) ,U20( 51 ) , VC( 51 ) ,VCD( 
551), VCI1( 51) ,VCI2< 51) , VG(51) ,VGN(51) ,VGS< 51) ,V ISC < 51 > , VS ( 51 ) ,V0(51 
6) , VON* 51) , VI (51) ,V2(51),V2N< 51 ) 

CCMMON / CO MBC/ C A I NF , C AW , C IN F6 ( 6 > , C I WW6( 6 ) 

COMMON /COMDBL/ AJB( 51,6) , AJ M * 5 1 , 6 ) , CC ( 5 l , 6 ) , CCL ( 5 1 , 6 ) ,CCN( 51,6) ,C 
1PI(51,6),C1(51,6),C2(51,6),C20(51,6),OH(51,6),HI(51,6),WO(51,6),W1 
2(51,6) 

COMMON /COME OG/ C I E ( 6 ) * TC I E 
COMMON /COMEL/ E LN ( 6 ) , ELO ( 6 ) 

COMMON /CO MF AC/ CCFAC,UFAC 

COMMON /COMFS/ P I NF , R E Y l N , R I NF , T I NF , U I NF 

COMMON /COMFSA/ C I NF ( 6 ) , CP I F S ( 6 ) , DEL H I F ( 6 ) , H I NF ( 6 ) 

COMMON /CO MG/ CA T , CNS , C RN I , R EF AC , S SF AC , S WF AC , T HI N , VPG , I , K , N I TER 
COMMON /CO MG 1 / C P , CPB , SP , S PB 

CCMMON /C0MG2/ CK,CK2,CSF2,RS2,SIF2,XB2,XNSPM 

COMMON /C0MG3/ CSF ,RS , SI F , XB , XNS1 

COMMON /COMNS/ NS 

COMMON /C0MNS2/ N J , NR , NSM 1 , N Z 

CCMMON /COMP RF/ SPRF ( 1 0 ) , NSPRF 

COMMON /COMREF/ CONREF ,CPR EF ,HREF , PREF , RRE F , TR EF , UREF , VS RE F , WREF 
COMMCN /CO MR X / RSH,XSH 

COMMON /COMSET/ RATE2 ( 15,6),RATE6( 15,6) , ZSUB2( 5,6), ZSUB6 (5,6) , KR T I 
1TL( 18) ,KREQ2 ( 1 5 , 6 ) , NA ME 2 ( 1 1 ) , N J 2 , NR 2 , N Z2 , K REQ6 ( 1 5 , 6 ) , NAME6 ( 1 1 ) ,NJ6 
2,NR6,NZ6 

COMMON /CO MS ML / SMALLT 

CCMMON /COMSUM/ CP J SUM ( 5 1 ) , HDW SUM ( 51 ) , HW SUM * 5 1 ) , H J SUMW 
CCMMON /C 0 MS 0/ P P SO , I T SO , V VSO , UUSO , NS OLD 
COMMON /COMTAB/ C PTAB ( 50 , 6 ) , HT AB ( 50 , 6 ) , T MP T AB ( 50 ) , NT A B 
COMMON /COMTST/ D I F I ( 8 ) , D I F , XU25 
CCMMON /COMUV/ URSH,VRSH 

COMMON /COMVS/ E M I ( 6 ) , VS A ( 6 ) , V S B ( 6 ) , VSC ( 6 ) , R , N SP I ( 6 ) 

CCMMON /COMVSP/ VSPP1,VS PP2 

CCMMON /CO MW/ Cl W ( 6 ) , C I WW ( 6 ) , C P I W ( 6) , H I W ( 6 ) , HTFL B , TB , TCNW, T W 
COMMON /COMXR/ AL P , ALT , BR AD, BO ,COF , CDFD, CDF 1 , CDF2 , CDP , CDPD, C DP 1 , CD 
1P2 ,OLDSLP , PH I , SEND, WVFAC *XNSO, I ENO, I UN,KPLTTP» NITMIN, NI TTOT, NTOT , N 
2TPL , NTW 

CCMMON / I N SH/ CONO , S , UPSH , XN S , E PS , TP SH , V I S CO 
COMMON / I N V2 / XN SA , XNS I VO , XNS I V 1 , X NS T MP , NA N 
COMMON /K J I / IJK 
COMMON /KNTR/ KNTR 1 , KNTW 1 , KNTW 2 

CCMMON /OUTSH/ PPS , P PS I , PPS2 , PSP, REY SH , RR S , RRS 1 , RRS2 , R S P , TS P , TTS , T 
1T$1,TTS2,USP tUUStUUSl , UUS2 , VSP , VVS , VVS1 , VVS2 
CCMMON /PRLE/ SIGM,XLE 

COMMON /RTECON/ CRO ( 1 5 ) , CR 1 ( 15 ) , CR2 ( 1 5 ) , DRO( 15 ) , DR 1 ( 1 5 ) , DR2 ( 15 ) 
COMMON /SOLV/ A1 < 5 1 ) • A2 ( 51 ) , A3 ( 51 1 , A4< 51) , DN ( 52 1 , DS, XN ( 52) , I E , IM 
CCMMON /TITLE/ KT I TLE ( 20 ) 
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Occurrence of Common Statements by Subroutines 


A listing of the subroutines in which each common block occurs is given 
below. The listing used with the section "Description of Variables in Common 
is an aid in determining where FORTRAN variables appear in the program. 


COMMON 

OCCURS 

IN 

BODY 

ENERGY, 

GEOM, 

COMABZ 

SET2, 

WISUB 

COMARL 

ENERGY, 

MAIN, 

C0MAR1 

ENERGY, 

THERM 

MAIN, 

COMBC 

MAIN, 

RESET, 

COMDBL 

MAIN, 

RESET, 

COMEDG 

ENERGY, 

MAIN, 

COMEL 

BLDATA, 

MAIN 

COMFAC 

ENERGY, 

MAIN, 

COMFS 

MAIN, 

RESET, 

COMFSA 

BLDATA, 

SHVALS, 

ENERGY 

SPECIE 

COMG 

ENERGY, 

MAIN, 

C0MG1 

ENERGY, 

MAIN, 

COMG2 

ENERGY, 

MAIN, 

COMG3 

MAIN, 

MASS, 

COMNS 

ENERGY, 

SPECIE, 

HCP, 

THERM, 

COMNS2 

MAIN, 

SET2, 

COMPRF 

MAIN, 

RESET 

COMREF 

ENERGY, 

MAIN, 

COMRX 

MASS, 

RESET 


MAIN, 

MASS, 

SMOMNT 

MASS, 

NMOMNT , 

RESET, 

MASS, 

NMOMNT , 

RESET, 

SET2 



SET, 

SPECIE, 

THERM, 

SET, 

SHVALS, 

SPECIE 

SMOMNT, 

SPECIE 


SHVALS, 

THERM 


HCP, 

THERM 

HCPA, 

MAIN, 

MASS, 

NMOMNT, 

RESET, 

SMOMNT, 

SPECIE 


MASS, 

NMOMNT, 

RESET, 

RESET 



HCPA, 

VISCNA, 

MAIN, 

VISCON, 

RESET, 

WISUB 

SPECIE, 

WISUB 


RESET, 

SHVALS, 

THERM, 


SPECIE 

SMOMNT , SPECIE 

SET, SMOMNT, SPECIE, 

WISUB 

RESET, SET, SET2, 

SET, SMOMNT, SPECIE 

SET, SMOMNT, SPECIE 

SET, SET2, SHVALS, 

WISUB 
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COMSET 

RTEDTA, 

SET2 


COMSML 

HCP, 

HCPA, 

INTRPS 

CONSUM 

ENERGY, 

RESET, 

SPECIE 

COMSO 

MAIN, 

NMOMNT, 

SET 

COMTAB 

BLDATA, 

HCP, 

HCPA 

COMTST 

ENERGY, 

MAIN, 

SMOMNT 

COMUV 

ENERGY, 

MAIN, 

SMOMNT 

COMVS 

BLDATA, 

MAIN, 

RESET, 

COMVSP 

MAIN, 

MASS 


COMW 

ENERGY, 

MAIN, 

RESET, 

COMXR 

MAIN, 

RESET, 

RTEDTA 

INSH 

ENERGY, 

MAIN, 

MASS, 

INV2 

MAIN, 

MASS, 

RESET 

KJI 

GEOM, 

MAIN 


KNTR 

MAIN, 

RESET 


OUTSH 

ENERGY, 

THERM 

MAIN, 

MASS, 

PRLE 

MAIN, 

RESET, 

SPECIE 

RTECON 

SET2, 

WISUB 


SOLV 

ENERGY, 

SOLVE, 

MAIN, 

SPECIE, 

MASS, 

THERM 

TITLE 

MAIN, 

RESET 



INTRP3, MAIN, RESET, SMTHAR, 

SPECIE 

SHVALS, THERM, VISCNA, VISCON, 

SET, SET2, SPECIE, THERM 

NMOMNT , RESET, SHVALS, SMOMNT , 

NMOMNT , RESET, SHVALS, SMOMNT, 

THERM 

NMOMNT, RESET, SET, SHVALS, 


Note: BLDATA stands for BLOCK DATA. 


SPECIE 


WISUB 


SPECIE 


SPECIE 


SMOMNT, 
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oouoooouououuououuuououoooooooooooouoooooooooouoo 


Listing of PROGRAM VISLNABB 

The FORTRAN source statements of Program VISLNABB are 
listed on the following pages. 


MAIN 
MAIN 
MAIN 
MAIN 
MAIN 

MAIN CALLS SUBROUTINES DERIV3, ENERGY, GEOM, INTRP3, MASS, NMOMNT , MAIN 

RESET, RTEDTA, SET, SET2 , SHVALS, S MOMNT , MA IN 


SMTHPR, SPECIE, THERM, AND VPRFLE MAIN 

MAIN 

* * JCL FOR IBM 370/158 * * MAIN 

MAIN 

//J08CARD MAIN 

// EXEC FORTGCLG,REGI 0N=200K MAIN 

//FORT.SYSIN DD * MAIN 

MAIN 

FORTRAN SOURCE PROGRAM MAIN 

MAIN 

/* MAIN 

//GO. FT01F001 DD SYSOUT=A MAIN 

//GO • FT 03F00 1 DD SYSOUT = A MAIN 

/ /GO • FT 04F 00 1 DD * MAIN 

MAIN 

BODY GEOMETRY DATA MAIN 

MAIN 

/* MAIN 

/ /GO • FT 08F 001 DD SYSOUT=A MAIN 

/ /GO .FT09F001 DD SYSOUT=A MAIN 

/ /GO • FT 1 5 F 00 1 DD UN IT = SYSDA , 0 1 SP = < NE W , DELE It ) , SP ACE = ( 440 , ( 200 >) , MAIN 
// DCB=(RECFM=VS,BLKSIZE=440,LRECL=436> MAIN 

/ /GO . FT 16F00 1 DD UN I T = SYSDA, 01 SP= ( NE W , DELE TE ) , SPACE= ( 440 , ( 200 ) ) , MAIN 

// DCR = (RECFM=VS, BLKSI ZE=440 , LR ECL =436 ) MAIN 

/ /GO • FT 1 9F 00 1 DD * MAIN 

MAIN 

REACTION RATE DATA MAIN 

MAIN 

/* MAIN 

/ /GO .FT20F001 DD * MAIN 

MAIN 

SHOCK SHAPE DATA MAIN 

MAIN 

/* MAIN 

//GO.SYSIN DD * MAIN 

MAIN 

UNIT 5 - INPUT DATA MAIN 

MA IN 

/* MAIN 

// MAIN 

MAIN 


PROGRAM VISLNABB 

MAIN CONTROLS LOGIC FLOW OF THE PROGRAM, PERFORMS SOME 
CALCULATIONS, AND UP DATES THE SHOCK SHAPES. 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 


MAIN 

CCMMON /BODY/ HANGL E , X JF AC , I GECM , JFAC MAIN 

CCMMCN /COMARL/ XN S P ( 2 02 ) , XS CL ( 200 ) MAIN 

CCMMON /CO MARI/ AA151 ) ,BBt 51 > , C AE Q ( 5 1 > , CON ( 5 1 ) , CO it 5 1 ) , C02 ( 5 1 ) ,CPSMA IN 
1T(51),EMBAR( 51), PC (51) ,PCN(51) , PE < 51 ) , PFAC < 5 1 ) , P S ( 5 1 ) , PO ( 5 1 ) , PON ( 5MA I N 
21 ) , PI (51) , P1N( 51) ,P2( 51), P2N (51 ),QH 51 ),Q2< 51 >,RC( 51), RCON( 51) ,RCSMA IN 
3F(5l)*RNSH(51)»RVISC( 51),R1( 51 ) *R2 ( 5 1 ) ,TC( 51),T1(51) ,T2(51)*T20(51MAIN 
4) ,T21< 51) ,UC( 51) ,UCNC 51) ,UC1(51) ,U1( 51) ,U2(51) ,U20(51) , VC I 5 1 ) , VCD ( M A IN 
551 ),VCI1< 51),VCI2(51 ) , VGt 51 ) , VGN( 51) ,VGSt 51) , VI SCI 51), VS (51) , VO (51 MAIN 
6 ) , VON (51) , VI 1 5 1 ) ,V2( 51J,V2N( 51 ) MAIN 

CCMMON / COM BC / C A I N F , C AW , C I NF6 ( 6 ) , C I WW6 ( 6 ) MAIN 

CCMMON /CCMD8L/ A JB ( 5 1 , 6 ) , AJM ( 5 1 , 6 ) , CC ( 5 1 , 6 ) , CCL ( 5 1 , 6 ) , CCN ( 5 1 , 6 ) ,CMAIN 
IP I (51,6) ,C1(51,6),C2( 51,6) ,C20(51,6) , DWt 51,6) «HI (51,6) , W0( 5 1 ,6 ) , W1MA IN 
2(51,6) MAIN 

CCMMON /COME CG / CIE(6),TCIE MAIN 

COMMON /COMEL/ E LN ( 6 ) , E LO ( 6 ) MAIN 

CCMMON /COMFAC/ CCFAC,UFAC MAIN 

CCMMON /COMFS/ P I NF , R E Y I N , R I NF , T I NF , U I NF MAIN 

COMMON /COMFSA/ C INF (6 ) ,CP IFS ( 6 ) , DELHIF( 6 ) ,HI NF ( 6 ) MAIN 

CCMMON /CO MG/ CA T , CNS , CRN I , R EF AC , S SF AC , S WF AC , T HI N , VPG , I , K , NI T ER MAIN 

CCMMON /C 0 MG 1 / CP , CPB , SP , S PB MAIN 

CCMMCN /C0MG2/ CK , CK2 , CSF2 , R S2 , S I F 2 , XB 2 , XN SPM MAIN 

COMMON /C0MG3 / C SF , RS , S IF , XB , X NS 1 MAIN 


49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 
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nn n o n 


C 

C 


COMMON /COHNS/ NS MAIN 

COMMON /COMNS2/ NJ , NR, NSM1 ,NZ MAIN 

COMMON /COMPRF/ SPRF( 10 ) ,NSPRF MAIN 

COMMON /COMREF/ CONREF ,CPREF ,HREF , PR EF , R REF, TREF, UREF , VSREF, WR EF MAIN 

COMMON /COMSML/ SMALLT MAIN 

CCMMON /COMSO/ PPSO, TTSO , VVSO ,UUSO ,NSOLO MAIN 

COMMON /COMTST/ DI F 1 1 8 ) ,D I F, XU25 MAIN 

COMMON /COHUV/ URSH,VRSH MAIN 

CCMMON /COMVS/ E M I ( 6 ) , VS A C 6) , V SB ( 6 ) , VSC ( 6 ) ,R , NSP 1 1 6 ) MAIN 

CCMMON /COMVSP/ VSPP1,VSPP2 MAIN 

CCMMON / COMW/ C I W 1 6 ) , C IHW ( 6 J , CP I W ( 6 ) ,H I W < 6 ) , HTFLB , TB , TCN W, TW MAIN 

COMMON /COMXR/ ALP , ALT , BRAD , BO , COF , C OFO, CDF1 , CDF2 , COP , CDPO, COP 1 , CDMA I N 

1P2,OLDSLP,PHI,SEND,WVFAC,XNSO, I END, I UN, KPLTTP, NI TWIN, NI TTOT, NTOT , NMA IN 
2TPL.NTW MAIN 

CCMMON / 1 NSH/ CONO , S , UPSH , XN S , EPS , TPSH , V I SCO MAIN 

COMMON /INV2/ XN SA , XNSI VO, XNSI VI , XNSTMP , NAN MAIN 

CCMMON /KJ 1/ IJK MAIN 

CCMMON /KNTR/ KNTR 1 , KNT W1 , KNT W2 MAIN 

COMMON /OUTSH/ PP S , P PS I , PPS2 , PSP , REYSH ,RRS , RRS I , RRS2 , RS P , TSP , TTS , TMA IN 


MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 

NAMELIST /INPUT/ ALT, BRAD , CA I NF , C AT, C AW , CC FAC , CONVRG , DS , DSM A X , HA NGMA IN 
1L E , PRNTC I , R 1 NF , SEND , S I GM , S I TEST , SMAL L T , SSF AC , S WFAC , T B , THI N I , T I NF , UMA IN 
2FAC,UINF f WVFAC,XKETA,XLE,XNS0, IE, I END, IGEQM, IUN, JFAC, KEND , KPLTTP , KMA I N 


1TS1 , TTS2 ,USP ,UUS,UUS1,UUS2,VSP,VVS,VVS1,VVS2 
COMMON /P RLE/ SIGM,XLE * 

CCMMON / S OLV / A1 ( 5 1 ) , A2 ( 5 1 ) , A3 ( 5 1 ) , A4( 5 1) , DN ( 5 2 ) , DS , XN ( 52 ) , I E , I M 
COMMON /TITLE/ KT I TL E ( 20 ) 

DIMENSION EN SHN( 301) , SHSLPN (301 ) , SNOOD, XXNP(301I 
DIMENSION STWA(IOO), TWA(IOO) 

DIMENSION CNVRGI ( 8 ) , TERMN ( 6 ) , TERMO ( 6 ) 


72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 


3TWAL ,NAN,NDATA,NITMAX,NITMIN,NITMNI,NSt 

,NSI ,NSPRF,NTSH,NTTWA MAIN 

103 


MAIN 

104 

DATA BLNK/1H / 

MAIN 

105 


MAIN 

106 

DATA XXNP/ 30 1*0. 0/ 

MAIN 

107 


MAIN 

108 


MAIN 

109 

I JK=0 

MAIN 

110 

V PG=0 • 0 

MAIN 

111 

READ (5,620) KTITLE 

MAIN 

112 

WRITE (6,630) KTITLE 

MAIN 

113 

KNTR1 = 0 

MAIN 

114 

KNT W 1=0 

MAIN 

115 

KNT W2 =0 

MAIN 

116 

NT PL = 1 3 

MAIN 

117 

NTR= 1 5 

MAIN 

118 

NT W= 16 

MAIN 

119 

N TOT = 0 

MAIN 

120 

NSOL D=0 

MAIN 

121 


MAIN 

122 

INITIALIZE NAMELIST INTEGER VARIABLES 

MAIN 

123 


MAIN 

124 

I E = 5 1 

MA IN 

125 

IEND=200 

MAIN 

126 

I UN= 19 

MAIN 

127 

JF AC= 1 

MAIN 

128 

KEND=2 

MAIN 

129 

KPLTTP=0 

MAIN 

130 

KTWAL=0 

MAIN 

131 

N AN= 1 

MAIN 

132 

NC AT A=0 

MAIN 

133 

N I TM AX=999 9 

MAIN 

134 

N I TM I N= 3 

MAIN 

135 

N I TMN I =3 

MAIN 

136 

NS=2 

MAIN 

137 

NS 1= 2 

MAIN 

138 

N SPRF=0 

MAIN 

139 

NT SH= 5 

MAIN 

140 

NTTWA=5 

MAIN 

141 


MAIN 

142 
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c 

INITIALIZE NAMELIST 

RFAL VARIABLES 

MAIN 

143 

c 



MAIN 

144 


CAINF=0.0 


MAIN 

145 


CAT=1.0 


MAIN 

146 


C A W= 0 . 0 


MAIN 

147 


CCF AC=G .0 


MAIN 

148 


CCNVRG=0.01 


MAIN 

149 


DS=0 • 1 


MAIN 

150 


DSMAX=5 • 0 


MAIN 

151 


HANGLE = 10* 0 


MA IN 

152 


PRNTCI=0.0 


MAIN 

153 


S END = 0 .0 


MAIN 

154 


S I GM = 0 • 7 


MAIN 

155 


SITEST=0.0001 


MAIN 

156 


SMALLT = 1 .0 F-6 


MAIN 

157 


SSFAC=-1.0 


MAIN 

158 


S WF AC=- 1.0 


MAIN 

159 


TH IN I -4-1 .00 


MAIN 

160 


U F AC = 0 • 5 


MA IN 

161 


WVF AC = 0 • 250 


MAIN 

162 


X KET A = 1 • 0 * 


MAIN 

163 


XLE= 1 • 4 


MAIN 

164 


XNS0=0.1166 


MAIN 

165 


DO 10 J = 1 » 6 


MAIN 

166 


C I N F ( J ) =0 • 00 


MAIN 

167 


CIWW{ J>=0.00 


MA IN 

168 

10 

CONTINUE 


MAIN 

169 


TH I N= 1 .00 


MAIN 

170 

c 



MAIN 

171 

c 

NAMELIST INPUT 


MAIN 

172 

c 



MAIN 

173 


READ (5, INPUT! 


MAIN 

174 


IF ( NDATA • EQ . 0 ) SEND=DS* ( IEND+1) 

MAIN 

175 


X JFAC=JFAC 


MAIN 

176 


WRITE (6, INPUT) 


MAIN 

177 


NSM1=NS— 1 


MAIN 

178 


NSPL2=NS+2 


MAIN 

179 


DC 20 N=1 t IE 


MAIN 

180 


VG(N ) = 0.0 


MAIN 

181 

20 

VGS ( N ) =0 • 0 


MAIN 

182 


READ (5,750) (CINF6IJ) , J= 1 *6 ) 

MAIN 

183 


READ (5,750) ( Cl WW6( J ) , J=1 ,6 ) 

MAIN 

184 


IF (NDATA. EQ.O) GO 

TO 80 

MAIN 

185 


N = 0 


MAIN 

186 

30 

N=N+ 1 


MAIN 

187 

C 



MAIN 

188 

C 

SHOCK SHAPE DATA 


MAIN 

189 

C 



MAIN 

190 


READ (NTSH,700) SN ( N » , SHSL PN ( N ) , ENSHN( N) , E NO 

MA IN 

191 


IF ( ENO. EQ.BLNK) GO 

TO 30 

MAIN 

192 


NSOAT A=N 


MAIN 

193 


IF { SEND. LT. 0.0001 ) 

SEND=SN ( NSDATA ) 

MAIN 

194 


IF ( SEND .GT.SN(NSDATA) ) S END=SN ( NSDAT A ) 

MAIN 

195 


CALL DERIV3 (ENSHN, 

SN t NSD ATA»2fSHSLPN) 

MAIN 

196 


SHSL PN ( 1 ) =0. 0 


MAIN 

197 


SHSLPNI NSDAT A+ 1 >= SHSL PN ( NSDATA ) 

MAIN 

198 


SN(NSDATA+1)=SN< NSDATA )*( SN < NS C AT A )- SN ( NSDAT A- 1 ) ) 

MAIN 

199 


DO 60 KL S Q = 1 v 4 


MAIN 

200 


DO 40 N=2. NSDATA 


MA IN 

201 

40 

XXNP(N)=2.0*(SHSLPN(N*1)-SHSLPN(N-1> ) * ( SN ( N )-SN( N- 

1) )/(3.0*( SN(N + 1MA IN 

202 


I)-SN(N-l) ) )+(2.0*SHSLPN(N-l) +SHSLPNIN) )/3.0 

MAIN 

203 


DO 50 N=2, NSDATA 


MAIN 

204 

50 

SHSLPN(N)=XXNP(N) 


MAIN 

205 

60 

CONTINUE 


MAIN 

206 


DO 70 N = 1 » 300 


MAIN 

207 

70 

XXNP ( N ) =0. 0 


MAIN 

208 


GO TO 100 


MAIN 

209 

80 

CONTINUE 


MAIN 

210 


I END2= I END+2 


MAIN 

211 


DO 90 N=l, IEND2 


MAIN 

212 

90 

XNSP(N)=0.00 


MAIN 

213 
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100 

CONTINUE 

MAIN 

214 


IF (KTWM_.EQ.OI GG TO 120 

MAIN 

215 


N=0 

MAIN 

216 

no 

N = N + 1 

MAIN 

217 

c 


MAIN 

218 

c 

WALL TEMPERATURE DATA 

MAIN 

219 

c 


MAIN 

220 


READ ( NTT W A t 540 ) S TWA ( N ) , TWA ( N ) , ENO 

MAIN 

221 


IF (ENO.EQ.BLNK) GO TO 110 

MAIN 

222 


NPTT=N 

MAIN 

223 

120 

CONTINUE 

MAIN 

224 


IF (NSPRF.NE.O) READ (5,550) SPRF 

MAIN 

225 


IF (NSPRF.NE.O) SPRF ( NSPRF )=SEND 

MAIN 

226 


CALL RTEDTA 

MAIN 

227 


IM=IE-1 

MAIN 

228 


DY=1 .0/ I M 

MAIN 

229 

C 


MAIN 

230 

c 

SET GRID SPACING 

MAIN 

231 

c 


MAIN 

232 


IF (XKETA.NE.1.0) DN ( 1 >= ( XKETA-1 .0 ) / ( XKETA** IM-1 .0 ) 

MAIN 

233 


IF (XKETA.EQ.1.0) DN(1)=DY 

MAIN 

2 34 


XN ( 1 ) =0 • 0 

MAIN 

235 


DO 130 N= 1 » I E 

MAIN 

236 


DN(N+1)=XKETA*DN(N) 

MAIN 

237 

130 

XN(N*1)=XN(N)+DN(N) 

MA IN 

238 


XN ( I E ) = 1 • 00 

MAIN 

2 39 


DSCLD=DS 

MAIN 

240 


IF IKPLTTP.NE.O) WRITE <NTPL,690) KTITLE 

MAIN 

241 

C 


MAIN 

242 

C 

BEGIN MAIN LOCP 

MAIN 

243 

C 


MAIN 

244 


DO 530 K= 1 , K ENO 

MAIN 

245 


WRITE (1,730) 

MAIN 

246 


WRITE (3,740) 

MAIN 

247 


IF (NDATA.EQ.O) GO TO 150 

MAIN 

248 

C 


MAIN 

249 

C 

PRINT SHOCK SHAPE DATA 

MAIN 

2 50 

C 


MAIN 

251 


WRITE (8,640 K 

MAIN 

2 52 


WRITE (8,710) 

MAIN 

253 


DO 140 N~1,NSDATA 

MAIN 

2 54 


WRITE (8,720) SN ( N ) , S HSL PN ( N ) , N 

MAIN 

255 

140 

CONTINUE 

MAIN 

256 

150 

CONTINUE 

MAIN 

257 


WRITE (8,640) K 

MAIN 

258 


WRITE (8,650) 

MAIN 

259 


DO 160 J = 1 , NSPL2 

MAIN 

260 

160 

CNVRG I ( J ) =CONVRG 

MAIN 

261 


IF (NS.EQ.6) CNVRG l ( 7 ) =CONVRG* 100 . 0 

MAIN 

262 


IF (NS.EQ.2.AND.CAT.LE.0.0 ) CNVRG I ( 4 ) = CONVRG* 100.0 

MAIN 

2 63 


N I TER = 0 

MAIN 

2 64 


UPSH=0 .00 

MAIN 

265 


TPSH=0.00 

MAIN 

266 


VISC0=0.00 

MAIN 

267 


C0N0=0.00 

MAIN 

268 


XNS=XNSO 

MAIN 

269 


XNS1=XNS 

MAIN 

270 


DS 1=DS 

MAIN 

271 


DS2=DS/2 .00 

MAIN 

2 72 


CK= 1 .00 

MAIN 

273 


C S F=0 • 00 

MAIN 

274 


S IF= 1 .00 

MAIN 

275 


RS=0.00 

MAIN 

276 


RS2=0.00 

MAIN 

277 


XB=0 .0 

MAIN 

278 


CDF=0 * 0 

MAIN 

279 


CDP=0 .0 

MAIN 

2 80 


CDP1=0. 

MAIN 

281 


C0P2=0. 

MAIN 

282 


CDF1=0 • 

MAIN 

2 83 


CDF2=0 • 

MAIN 

284 
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CCPD=0. 

MAIN 

285 


CDFD-0. 

MAIN 

286 


CNS=< XNSl+XNS )/2 • 

MAIN 

287 


CRNI=1.0 

MAIN 

288 


NITTOT=0 

MAIN 

289 


S=-DS2 

MAIN 

290 


S1=S+DS2 

MAIN 

291 


IF (THIN. LE. 0.0) CALL VPRFLE < S1,VSPP1,V0, IE *NTR,11 

MAIN 

292 


UU$0=Q.0 

MAIN 

293 


PP 50=0.833 

MAIN 

294 


VVS0=-0.167 

MAIN 

295 


TTS0=0.486 

MAIN 

296 


RR S0=6 • 0 

MAIN 

297 


URSH=0.0 

MAIN 

298 


VRSH=VVSO 

MAIN 

299 


TTSH=TTSO 

MAIN 

300 


TTS2-TTS0 

MAIN 

301 


PPS*PPS0 

MAIN 

302 


RRS=RRS0 

MAIN 

303 


TTS=TTSO 

MAIN 

304 


CALL SET2 

MAIN 

305 


CALL THERM ( 1 , BRAD,CONC, VI SCO* EPS, VI S2 ) 

MAIN 

306 


CALL SET 

MAIN 

307 


AA( 11*0.0 

MAIN 

308 


BB ( 1 1 *0.0 

MAIN 

309 


XNSP ( 1 ) =0 .0 

MAIN 

310 

c 


MAIN 

311 

c 

BEGIN SOLUTICN ALONG BODY 

MAIN 

312 

c 


MAIN 

313 


DO 390 1 = 1,1 END 

MAIN 

314 

170 

S=S+D$2 

MAIN 

315 


IF (KTWAL.EQ.O) GO TO 180 

MAIN 

316 


NUTW=2 

MATN 

317 


CALL SMTHPR ( $, TW, STWA ,TWA ,NPTT ,NUTW I 

MAIN 

318 


TW=TWTREF 

MAIN 

319 

180 

CONTINUE 

MAIN 

320 


IF (THIN. GE. 0.0) GO TO 190 

MAIN 

321 

C 


MAIN 

322 

C 

RETRIEVE V PROFILES FOR FVSL 

MAIN 

323 

C 


MAIN 

324 


S 1=S 

MAIN 

325 


S2=S+DS 

MAIN 

326 


CALL VPRFLE ( SI , VSPP1 , VC 1 1 , I E , NTR , 2) 

MAIN 

3 27 


CALL VPRFLE ( S2 , VSPP2 t VC 12 , I E ,NTR, 2) 

MAIN 

328 

C 


MAIN 

329 

190 

CGNTINUE 

MAIN 

330 


CALL GEOM ( S ,DS2 , R S2 , CK2 ,CSF2 , S IF2 ,XB2 ) 

MAIN 

331 


PHI=ARC0S(CSF2) 

MAIN 

332 

C 


MAIN 

333 

C 

NCATA = 1 / USE TABULATED SHOCK SLOPE OATA 

MAIN 

334 

c 


MAIN 

335 


IF (NCATA. EQ.O) GO TO 200 

MAIN 

336 


SPD$=S*DS 

MAIN 

337 


CALL INTRP3 ( SPDS , SN, SHSLPN, NSCATA , XNSP( 1 + 1) ) 

MAIN 

338 

200 

CONTINUE 

MAIN 

339 


XNSPM- ( XNSP ( I } +X MSP ( I+1M/2.00 

MAIN 

340 


ALP=PHI+ATAN(XNSPM/( 1 . 0+CK2+XNS ) ) 

MA IN 

341 


GLDSLP=XNS P ( I ) 

MA IN 

342 


WRITE (8*680) I , S , OLOSLP, XNSPM , ALP 

MAIN 

343 


SP=SIN( ALP) 

MAIN 

344 


CP=CO$(ALP) 

MAIN 

345 


$PB=SP*SIF2+CP*CSF2 

MAIN 

346 


CPB=CP*SIF2— SP*CSF2 

MAIN 

347 

210 

CONTINUE 

MA IN 

348 


0 I F=0 • 0 

MAIN 

349 


00 220 J = 1 , N SPL2 

MAIN 

350 

220 

DI FI ( J)=0. GO 

MAIN 

351 


T GUE=0 • 0 

MAIN 

352 

230 

CONTINUE 

MA IN 

353 


TC I E*TC ( I E )*TTS*TREF 

MAIN 

354 


CALL SHVALS ( SP , CP , S PB , CPB ,T TSH, VR SH * URSH , PPSH , 2 ) 

MAIN 

355 
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IF (S.GE. 0*00011 GO TO 240 

MAIN 

356 


CALL SHVALS ( 1 .00 , 0. 00 , 1 .00,0. 00 ,TTS0, VVSO ,UUSO, PPSO, 1 ) 

MAIN 

357 


B0=TW/TT SO 

MAIN 

358 

240 

CONTINUE 

MAIN 

3 59 


SIT=ABS ( TGUE— TTS 1 

MAIN 

360 


TGUE*TTS 

MAIN 

361 

C 


MAIN 

362 

c 

ITERATE FOR SHOCK TEMPERATURE 

MAIN 

363 

c 


MAIN 

364 


IF (SIT.GE.SITEST) GO TO 230 

MAIN 

365 


CALL THERM ( 2 , BRAD.CONO, V I SCO* EPS, VI S2 1 

MAIN 

366 


REFAC=RRS*VVS*CNS/(EPS*EP$*VlSCO) 

MAIN 

367 


XKSL=VlS2*RRS*VVS*SQRT(PPS2*P2(l)/(RRS2*R2m ) )/ ( PPS2*P2 < 1 ) *REFAC )MA IN 

368 


DO 260 N»1,IE 

MAIN 

369 


IF (S.GE. 0.0001) GO TO 250 

MAIN 

3 70 


PFAC(N)=4.00*(P2(N)+IPPS2/PPS0-2.00)*P0(N> ) / (UUS2*DS >-XNSP ( 2 )*XN( NMA IN 

371 


i)*PON(N)/(2.00*UUS2*CNS> 

MAIN 

372 


GO TO 260 

MAIN 

373 

250 

VC(N)=VCD(N)/VVS 

MAIN 

374 

260 

CONTINUE 

MAIN 

375 

C 


MAIN 

376 

c 

SOLVE GOVERNING EQUATIONS 

MAIN 

377 

c 


MAIN 

370 


CALL SPECIE 

MAIN 

379 


CALL ENERGY 

MAIN 

380 


CALL SMOMNT 

MAIN 

381 


CALL MASS 

MAIN 

382 


CALL NMOMNT 

MAIN 

383 


NI TER=NI TE R+l 

MAIN 

384 


NITTOT=NITTOT+1 

MAIN 

385 


NTCT = NTOT + 1 

MAIN 

386 


TF ACT=XU25— U2 ( 15 ) 

MAIN 

387 


D I FI ( 1I = DIF 

MAIN 

388 


IF (PRNTCI.LT. 0.5) GO TO 300 

MAIN 

389 

c 


MAIN 

390 

c 

PRINT SPECIE S PROFILES AND ATOM SUMS 

MAIN 

391 

c 


MA IN 

392 


WRITE (6,560) K , I , S , N I TER , DI F 

MAIN 

393 


IF (NS.EQ.6) WRITE (6,570) t NS PI ( J ) , J= l , NS ) 

MAIN 

394 


IF (NS.EQ.2) WRITE (6,580) C NS P I ( J ) , J= l , NS ) 

MAIN 

395 


WRITE (6,590) ( 0 I F I ( J ) , J= 1 , NSPL2 ) 

MAIN 

396 


DC 270 J=1,NS 

MAIN 

397 


TERMN(J)=ELN(J)*FMI (4)/EMl ( J ) 

MAIN 

398 


TERMOI J)=ELO( J)*EMI( 1 )/EMI ( J ) 

MAIN 

399 

270 

CCNTINUE 

MAIN 

400 


DO 290 N= 1 , I E 

MAIN 

401 


SUN=0 .0 

MAIN 

402 


SUMN=0 .00 

MAIN 

403 


SUMO=0. 00 

MAIN 

404 


DO 280 J= 1 , NS 

MAIN 

405 


SUMN=SUMN+CC ( N , J )*TERMN( J ) 

MAIN 

406 


SUMO=SUMO+CC(N,J )*TERMO( J) 

MAIN 

407 

280 

SUM= SUM+CC (N , J ) 

MAIN 

408 


SUM= SUM— 1 • 00 

MAIN 

409 


WRITE (6,600) N,XN(N),UC(N),TC(N) , (CC(N,J) , J=1 , NS ) , SUM , SUMO , SUMN 

MAIN 

410 

290 

CONTINUE 

MA IN 

411 

300 

CONTINUE 

MAIN 

412 

C 


MAIN 

413 

C 

PRINT PROFILE DIFFERENCES 

MAIN 

414 

C 


MA IN 

415 


IF (PRNTCI .LT.0.5) WRITE (6,610) K , I * S ,NI TER , ( DIF I < J ) « J=1 , NSPL2 ) 

MAIN 

416 


WRITE (9,660) K , I , S , N I TER , NI T TOT , TF AC T, D I F ,XNS ,C NS 

MAIN 

417 


IF (NITER. LT.NITMAX) GO TO 330 

MAIN 

418 


DO 310 J = 1 , NS PL2 

MAIN 

419 

C 


MAIN 

420 

C 

TEST FOR CONVERGENCE 

MAIN 

421 

C 


MAIN 

422 


IF (DIFI (J).GT.CNVRGI(J) ) GO TO 320 

MAIN 

423 

310 

CONTINUE 

MAIN 

424 


GC TO 350 

MAIN 

425 

320 

CONTINUE 

MAIN 

426 
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c 

c 

c 

c 



c 

c 

c 

360 


370 

380 


390 

C 

C 

C 

400 


C 

c 

c 


IF (I.EQ.l) GO TO 330 

WRITE (6,670) S , TFACT , NITER, NITTOT , OIF ,CONVRG 

CUT STEP SIZE IN HALF AND TRY FCR SOLUTION AGAIN 
IF NITER . EQ. NITMAX 

0S=DS/2.0 

0S2=CS2/2.0 

S=S-DS-DS2 

CALL GEOH ( S , DS2 , RS , CK ,CSF ,S IF ,XB ) 

NI TER«0 

GO TO 170 

CONTINUE 

DO 340 J=1,NSPL2 

IF (DIFI( J).GT.CNVRGI(J)) GO TC 210 

CONTINUE 

CONTINUE 

PRINT SOLUTION DATA AND RESET VARIABLE FOR NEXT GLOBAL ITERATION 

CALL RESET 
DS=DS 1 

IF (NITER. GT.NITMIN) GO TO 360 
IF (CS.GE.DSMAX) GO TO 360 

DOUBLE STEP SIZE 

0S=DS*2 .0 
CONTINUE 
RS~RS2 
DS 1=DS 
I E 1= I 

IF (NSPRF. EQ.Q) GO TO 380 

DC 370 NK=1, NSPRF 

IF ( S .GE • S PRF ( NK ) ) GO TO 370 

IF < ABS(1.0C-S/SPRF(NK)).LE.$MALLT) GO TO 370 

IF ( <S+1.25*0S).LE.SPRF(NKU GO TO 370 

DS-SPRF ( NK )- S 

GO TO 380 

CONTINUE 

CONTINUE 

IF ( ABS ( 1 • 00— S/S END) • LE.SMALLT ) GO TG 400 

IF (S.GE.SE NO) GO TO 400 

DS2=DS/2.00 

$=$+D$2 

CALL GEQM ( S , DS2 , RS , CK ,CSF , $ IF , XB ) 

RS2=RS 

NITER-0 

CONTINUE 

END SOLUTION ALONG BODY 

CONTINUE 
S 1=S+DS l 
S2=S 1+DS1 

WRITE (NTW1 S1,VVS,VSP,VCI2 
WRITE ( NTW ) S2,VVS»VSPfVCI2 
Sl=S2+D$l 
S2=$ 1+DS1 

WRITE (NTW) $i,VVS,VSP,VCI2 
WRITE (NTW) S2 , VVS , VSP , VC 1 2 
KNTW1=KNTW 1+4 
IF ( NDATA . £0.0) GO TO 480 

UPOATE SHOCK SHAPE DATA 

IEIl-IEI+I 

XSCLdEIl )=XSGL( IED+DS 
XNSP(IEI1)=XNSP( I El 1 
DC 430 KLSQ= 1,4 
DO 410 N-2 , I E I 


MAIN 427 
MAIN 428 
MAIN 429 
MAIN 430 
MAIN 431 
MAIN 432 
MAIN 433 
MAIN 434 
MAIN 435 
MAIN 436 
MAIN 437 
MAIN 438 
MAIN 439 
MAIN 440 
MAIN 441 
MAIN 442 
MAIN 443 
MAIN 444 
MAIN 445 
MAIN 446 
MAIN 447 
MAIN 448 
MAIN 449 
MAIN 450 
MAIN 451 
MAIN 452 
MAIN 453 
MAIN 454 
MAIN 455 
MAIN 456 
MAIN 457 
MAIN 458 
MAIN 459 
MAIN 460 
MAIN 461 
MAIN 462 
MAIN 463 
MAIN 464 
MAIN 465 
MAIN 466 
MAIN 467 
MAIN 468 
MAIN 469 
MAIN 470 
MAIN 471 
MAIN 472 
MAIN 473 
MAIN 474 
MAIN 475 
MAIN 476 
MAIN 477 
MAIN 478 
MAIN 479 
MAIN 480 
MAIN 481 
MAIN 482 
MAIN 483 
MAIN 484 
MAIN 485 
MAIN 486 
MAIN 487 
MAIN 488 
MAIN 489 
MAIN 490 
MAIN 491 
MAIN 492 
MAIN 493 
MAIN 494 
MAIN 495 
MAIN 496 
MAIN 497 
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410 XXNP(N) = 2 .0*(XNSP( N+l ) -XNS P C N- 1 )) * ( XSOLI N > -XSOL ( N- 1 ) ) / ( 3 . 0* ( XSOL ( NMA IN 498 



1+1 ) -XSOL C N-l ) ) )+(2.0*XNSP(N-l)+XNSP(N) )/3.0 

MAIN 

499 


DO 420 N=2 1 1 E I 

MAIN 

500 

420 

XNSP(N)=XXNP(N) 

MAIN 

501 

430 

CONTINUE 

MAIN 

502 


DO 440 N=2 » NSDAT A 

MAIN 

503 


NN=N 

MAIN 

504 


IF (SN(NN) .GF.XSOLUEI )) GO TO 450 

MAIN 

505 

440 

CONTINUE 

MAIN 

506 


GO TO 460 

MAIN 

507 

450 

NSDATA=NN 

MAIN 

508 

460 

CONTINUE 

MAIN 

509 


DO 470 N*2 t N SDAT A 

MAIN 

510 

470 

CALL INTRP3 ( SN< N ) ,XSGL , XNSP t I E I ♦ SHSLPN< N )) 

MAIN 

511 


GO TO 520 

MAIN 

512 

430 

CONTINUE 

MAIN 

513 

C 


MAIN 

514 

C 

AVERAGE' SHOCK SHAPE FOR ANALYTIC BODIES 

MAIN 

515 

C 


MAIN 

516 


XNSP( IEND + 1 )=XNSP( I END) 

MAIN 

517 


DO 510 KL SQ= 1 » 4 

MAIN 

518 


DO 490 N=2 * I END 

MAIN 

519 

49 0 

XXNP(N)=( XNSP (N-l )+XNSPCN)+XNSP(N+l) )/3. 

MAIN 

520 


CO 500 N=2 » I END 

MAIN 

521 

500 

XNSP(N)'=XXNP(N) 

MAIN 

5 22 

510 

CONTINUE 

MAIN 

523 

520 

CCNTINUE 

MAIN 

524 

C 


MAIN 

525 

C 

SET COUNTERS FOP NEXT GLOBAL ITERATION 

MAIN 

526 

C 


MAIN 

527 


REWIND NTR 

MAIN 

528 


REWIND NT W 

MAIN 

529 


NTO=NTR 

MAIN 

530 


NTR=NTW 

MAIN 

531 


NTW=NTO 

MAIN 

532 


KNTW2=KNTW 1 

MAIN 

533 


KNTR1=0 

MAIN 

534 


KNTW 1=0 

MAIN 

535 


DS=DSOLD 

MAIN 

536 


THI N=THI N I 

MAIN 

537 


NITMIN=NITMNI 

MAIN 

538 


NSCLD=NS 

MAIN 

539 


NS=NSI 

MAIN 

540 


NSM 1=NS- 1 

MAIN 

541 


NSPL 2=NS+2 

MAIN 

542 

530 

CONTINUE 

MAIN 

543 

C 


MAIN 

544 

c 

END MAIN LOOP 

MAIN 

545 

c 


MAIN 

546 


RETURN 

MAIN 

547 

c 


MAIN 

548 

c 


MAIN 

549 

c 


MAIN 

550 

540 

FORMAT (2E15.6.A1) 

MAIN 

551 

550 

FORMAT (10F8.0) 

MAIN 

552 

560 

FORMAT ( 1H 1 * 2X f 3HK =,I1,4H,I =,I3,4H,S =,F10.6,9H, 

NITER = f I3,7H, MAIN 

5 53 


ID IF =,E15.7) 

MAIN 

554 


570 FORMAT ( 1H0 , 4X , 1HN * 3X , 2HXN , 7X f 2HUC »7X , 2HTC ,2X » 6 ( 7X , A4 ) , 2X * 9HSUMC I-MA IN 555 
11 .0*7X,4HSUM0 # 7X,4HSUMN) MAIN 556 

500 FORMAT ( 1H0 * 4X , 1HN » 3X t 2HXN , 7X f 2HUC » 7X , 2HTC , 2X , 2 ( 7X , A4 ) f 2 X f 9H SUMC I-M A IN 557 
1 1 .0 • 7X» 4HSUM0 , 7X * 4HSUMN ) MAIN 558 

590 FORMAT (1H , 7X t 6H < 0 1 F I I , IX , 2F9 .6 , 1PE 1 1 .4, 5E1 1. 4) MAIN 559 

600 FORMAT (1H • 2X , 1 3 r 3F9 . 6 f 1 PEI 1. 4, 8E 1 1 . 4) MAIN 560 

610 FORMAT (1H ,3HK =,I1,5H, I =,I3.5H, S =,F7.3,9H f NITER =,I3»8H f DIMAIN 561 
IF I = f lPE10.3,7E10.3) MAIN 562 

620 FORMAT (20A4) MAIN 563 

630 FORMAT ( 1H0.//25X, 20A4,/// ) MAIN 564 

640 FORMAT (1H1 ? 20X,3HK = f I2) MAIN 565 

650 FORMAT <1H0,8HSTA. NO. , 10X , 1HS ,7X * 8H0LD X NSP , 1 OX f 5HXNSPM, 2X , 13HAL PM A IN 566 
1HAIS+0S/2),7X,8HNEW XN SP , 6X f 2X , 7HNEW YSH , 12X , 3HXSH , 1 2X f 3HRSH ) MAIN 567 

660 FORMAT ( 1H ,2HK=,I2,4H, I = ♦ T 3, 3H , S= , F 10. 6 , 9H , NI T ER = , 1 5 , 1 OH , NITTMAIN 568 
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670 


680 

690 

700 

710 

720 

730 


740 


750 



FORMAT ( 20A4 ) 

FORMAT (3E15.6,A1 ) 

FORMAT ( 1H0, 8X, 1HS ,I3X ,4HYSHP , 8X, 1HN) 
FORMAT (1H *2E15 .6, 15 ) 

FORMAT (2H- 
12HCF 
2) 

FORMAT 
ID 
2 

FORMAT (6F1C.5) 

END 


MAIN 

NITER 1 5 * HHf MA IN 

MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 


AT (1H * 2 E15 .6, 15 I MAIN 

AT (2H- ,iHK,4X, lHI,6X,4HS/RN,3X,4HITER,6X,3HYSHf 9X,4HYSHP,8X,MAIN 
,10X, 4HHEAT, 8X,4H$TAN» 8X,5HPW/P0,7X, 4HQ/QO,0X, 1H$,11X,4HQ00T//MAIN 
l) MAIN 

FORMAT <1H0,//2X,1HK,4X,1HI,1X,4HITER,6X, 4HS/RN,8X, 3HYSH,9X f 5HYSH-MAIN 
ID, 7X, 6HYSH-ST, 6X, 6HYSH-AV,3X ,9KE-/CC ,MAX,4X, 8HXN, E-MAX f 4X f 8HY, IN # EMAIN 
>-M,6X,4HS/RN,8X,4H$ FT//) MAIN 

MAIN 


569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 



SUBROUTINE DERIV3 < F, X , IMAX, IMIN, FP) 


DERV 

1 

c 



OERV 

2 

c 

SUBROUTINE DERIV3 CALCULATES ThE FIRST DERIVATIVES OF 

: F WITF 

1 DERV 

3 

c 

RESPECT TO X AND RETURNS THE ARRAY FP 


DERV 

4 

c 



DERV 

5 

c 

SUBROUTINE DERIV3 IS CALLED BY MAIN AND SUBROUTINES ENERGY, 

MASS, DERV 

6 

c 

SET, SMOMNT, SOLVE, SPECIE, 

AND THERM. DERV 

7 

c 



OERV 

8 


DIMENSION F ( I MAX ) , X(IMAX), FP(IMAX) 


DERV 

9 

c 



DERV 

10 

c 



DERV 

11 


DO 10 J= IMIN, IMAX 


DERV 

12 


K=J 


DERV 

13 


IF <K.LT.(IMIN+1)) K= I MI N+l 


DERV 

14 


IF (K.GT. UMAX-1) ) K=IMAX-1 


DERV 

15 


AN1=2.0*X< J)-X(K)-X(K+1) 


DERV 

16 


AN2=2.0*X( J)-X(K-1 )-X( K+l ) 


DERV 

17 


AN3=2.0*X( J)-X(K-1 )-X ( K ) 


DERV 

18 


DN1= ( X ( K— 1 ) — X ( K) ) *( X ( K—l ) — X ( K+- 1 ) ) 


DERV 

19 


0N2=(X(K)-X(K-1) )*(X<K )-X(K+l) ) 


DERV 

20 


DN3=(X(K + l)-X<K-in*(X(K+l)-X<K> ) 


DERV 

21 


CN1= AN1/DN 1 


DERV 

22 


CN2=AN2/DN2 


DERV 

23 


CN3= AN3/DN3 


DERV 

24 


FP(J)=CN1*F(K-1)+CN2*F(K )+CN3*F(K+l) 


DERV 

25 

10 

CONTINUE 


DERV 

26 


RETURN 


DERV 

27 


END 


DERV 

28 


SUBROUTINE ENERGY 


ENRG 

l 

c 



ENRG 

? 

c 

SUBROUTINE ENERGY SOLVES TEE ENERGY EQUATICN 


ENRG 

3 

c 



ENRG 

4 

c 

SUBROUTINE ENERGY CALLS SUBROUTINES 0ERIV3, HCP, AND 

SOLVE. 

ENRG 

5 

c 



ENRG 

6 

c 

SUBROUTINE ENERGY IS CALLED BY MAIN. 


ENRG 

7 

c 



ENRG 

8 


COMMON /BODY/ HANGLE , X JFAC ,1 GECM , JFAC 


ENRG 

9 


COMMON /COMARL/ XN$P< 202 > , XSCL (200 ) 


ENRG 

10 


COPMCN /COMAR 1/ A A ( 5 X) , BB ( 511 ,C AE Q< 5 1 ) ,CON ( 51 ) ,C0 1 ( 511 ,C02 ( 51 ) t CPSGNRG 

11 


1TC51 ),EMBARC51 ),PC(51 ) ,PCNC5i) , PE ( 51 > , PFAC < 5 1 ) , P S( 51 ) 

, POI 5 1 ) 

, PON( 5ENRG 

12 


21) ,P1<51) ,P1N(51),P2( 51) t P2N(51) , Q 11 51 ) , 02 ( 51 ) ,RC(51) 

,RC0N(5i),PCSENRG 

13 


3F(51) ,RNSH(51 ) ,RV I SCI 5 1 ) , R1 < 51 ) ,R2( 51 ) ,TC ( 51I,T1( 51) , 

T2( 51), 

T20( 51ENRG 

14 


4) ,T2 1(511 ,UC(51) ,UCN(51),UCK51),U1(51),U2(51I ,U20 ( 51 ) , VC( 51 ) , VCD C ENRG 

15 


551) , VCIi (51) ,VCI2(51) , VG( 5 l ) , VGN( 5 1 ) ,VGS(51) ,VISC(51) 

, VS ( 5 1 ) 

, VQ( 51ENRG 

16 


6) , VON (51), VI (51) ,V2(51 ),V2N(51 ) 


ENRG 

17 
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I 


c 

c 


c 

c 

c- 


10 


20 

C 

C 

c 

c 

c 

30 

40 

50 

60 


COMMON /COMEDG/ CIE(6),TCIE ENRG 

COMMON /COMFAC/ CCFAC,UFAC ENRG 

COMMON /COMFSA/ C INF ( 6 ) , CP I F S ( 6 ) , OELH I F < 6 ) ,HI NF ( 6 ) ENRG 

COMMON /COMG/ CAT , CNS , CRN I , REF AC, SSF AC, SWF AC »T HI N , VPG , I , K, N I TER ENRG 

COMMON /C0MG1 / CP ,CPB , SP , S PB ENRG 

CCMMON /C0MG2/ CK , CK2 , CSF2 ,RS2 , SI F2, XB2, XNSPM ENRG 

COMMON /COMNS/ NS ENRG 

COMMON /COMREF/ CONR EF ,CPREF , HREF , PREF ,RREF , TREF , URE F , VS REF , WREF ENRG 
COMMON /COMSUM/ CP JSUM C 5 1 ) , HOW SUM I 51 ) , HW SUM( 5 1 ) , HJ SUMW ENRG 

CCMMON /COMTST / D I F I { 8 ) , D I F , XU25 ENRG 

COMMON /COMUV/ URSH,VRSH ENRG 

COMMON /COMW/ Cl W < 6 ) , C I WW < 6 1 , CP IW ( 6 ) ,‘H IW ( 6 > , HTFLB , TB , TCNW, TW ENRG 

COMMON / I NSH/ CONO, S , UPSH , XNS , EPS , TPSH , VI SCO ENRG 

COMMCN /OUTSH/ PPS , PPS 1 , P PS2 , PSP , R EYSH , RR S , RRS 1 , RRS2 ,R SP ,TSP , TTS , TEN RG 
lTSlfTTS2fUSPfUUS,UUSl»UUS2,VSP,VVS,VVSl,VVS2 ENRG 

COMMON /SOLV/ A1 ( 51) , A2( 51 ) , A3 ( 511 , A4C 51) , 0N( 52 ) » DS, XNI 52 1 , I E, IM ENRG 

ENRG 

DIMENSION HI I ( 6) , HFACC6), CPIIC6) ENRG 

ENRG 

DC 10 N=1 , I E ENRG 

CHM1=CPJSUM( N)*CNS/(CON(N)*CCNQ) ENRG 

CHMFAC=CNS*CNS*RRS*RC(N)/< EPS* EPS*CONO*CON ( N > ) ENRG 

CHM2=CHMFAC*HWSUM(NJ/TTS ENRG 

CHM3=CHMF AC*HD WSUM ( N ) ENRG 

C HM4=CHM3* TC ( N ) ENRG 

ENRG 

CALCULATE COEFFICIENTS FOR PARTIAL DIFFERENTIAL EQUATION ENRG 

ENRG 

A1 (N)=REFAC*VISCO*CPST(N)*(UUS*XN$P< I) *R NSH ( N ) *RC ( N ) *UC ( N ) *XN { N ) / ( E NRG 
1VVS*CNS)-RC(N)*VC<N) ) / ( CONO*CON (N ) ) + RCON ( N ) +CK*RN SH< N ) +RCSF < N ) *X JFENRG 
2AC-CHM1 ENRG 

A4(N)=-REFAC*VISC0*CPST(N)*UUS*RNSH( N)*RC< N)*UC(N)/I VVS*CONO*CON( NENRG 
in ENRG 

A2(N)=A4(N)*TSP/TTS-CHM3 ENRG 

A3 (N)=R£FAC*PPS*VISCO*(RNSH(N)*UUS*UUS*UC ( N ) *PFAC ( N) +VVS*VC t N ) *PCNENRG 
1 ( N ) ) /(TTS*RRS*VVS*CONO*CCN( N) ) +UUS*UU$*V I S C< N ) *V I SCO* ( UCN ( N ) -CK*RNEN RG 
2SH( N J *UC (N) ) **2/ ( TTS*CCNO*CON( N) I-CHM2+CHM4 ENRG 

TTS2TR=TTS2*TREF ENRG 

CALL HCP ( TTS2TR , C P I I ,HI 1 ,HFAC ) ENRG 

SUMCDH=0 • 0 ENRG 

SUMCHF=0 • 0 ENRG 

DO 20 J=1 , NS ENRG 

SUMCDH=SUMCDH+CINF(J ) * ( H I NF( J)-DELHIF( J) ) /HREF ENRG 

SUMCHF = SUMCHF+CINF( J)*FFAC (J J/CPREF ENRG 

CONTINUE ENRG 

ENRG 

CALCULATE SLIP VARIABLES ENRG 

ENRG 

CS1=SP*XNS*I SUMCHF )/( E FS * E PS *CGNO ) ENRG 

CS2=-SP*XNS*(C.50*(URSH-CP)**2+0. 50* ( SP** 2-VRSH** 2 ) +S UMC DH ) / ( E P $*EEN RG 
1PS*C0N0*TTS2) ENRG 

E 1=0.0 ENRG 

F 1=TW/TTS2 ENRG 

ENRG 

CALL SOLVE ( T 1 , T2 , El , FI ,CRNI , 1 .00, CS 1 , CS2 , SSF AC ) ENRG 

ENRG 

TTS2G=TTS2 ENRG 

S MAL L=1 • 0 E— 6 ENRG 

DO 30 N-2 , IE ENRG 

IF (T2(N).LE.O.O) T2(N)=SMALL ENRG 

CONTINUE ENRG 

CALL DERIV3 ( T2 , XN , I E , 1 , Q 1 1 ENRG 

T2NI E=Q1 (IE) ENRG 

IF ( SSFAC ) 70,70,40 ENRG 

TPSH=T 2NI E ENRG 

TTS2=T2(IE)*TTS2G ENRG 

IF (S.GE.0.0C01) GO TO 50 ENRG 

TTS1=TTS2 ENRG 

TTS=(TTS2+TTSl)/2-0 ENRG 

DO 60 N=l, IE ENRG 

T2(N)=T2(N)*TTS2G/TTS2 ENRG 


18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
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GO TO 80 

ENRG 

89 

70 

TP$H=0.0 

ENRG 

90 

80 

CONTINUE 

ENRG 

91 


XU25=U2 (15) 

ENRG 

92 


00 120 N= 1 » J E 

ENRG 

93 


R2(N)=P2(Nl*eMBARtN)/<T2(N)*EMEAR( IEU 

ENRG 

94 


IF (S.GE.O.OCOi) GO TO 100 

ENRG 

95 


IF (NITER. GT. 20) GO TO 90 

ENRG 

96 


R1 (N )=R2 ( N ) 

ENRG 

97 


T1 ( N ) -T2 ( N ) 

ENRG 

98 


GC TO 100 

ENRG 

99 

90 

CONTINUE 

ENRG 

100 


R 1 ( N) -UFAC*R l ( N) + ( 1 .O-UFAC ) *R2 <M 

ENRG 

101 


T l ( N )=UFAC*T 1 ( N ) *( 1 .O-UFAC ) *T2 ( N ) 

ENRG 

102 

100 

TC(NI=< Tl(N)+T2<Nn/2. 

ENRG 

103 

C 


E NRG 

104 

c 

CALCULATE PROFILE DIFFERENCE 

ENRG 

105 

c 


ENRG 

106 


IF ( T21 (N) .EC .0. 00 ) GO TO 110 

ENRG 

107 


01 FF=ABS ( 1 .00 -T 2 (N)/T21(NI ) 

ENRG 

108 


IF (DIFF.GT.DIFI (2>) DIFI(2)=DIFF 

ENRG 

109 

110 

CONTINUE 

ENRG 

110 


T2 1 ( N ) =T2 ( N ) 

ENRG 

111 


VC(N)=VCD(N)/VVS 

ENRG 

112 

120 

RC(N)=(R2(N)+R1(N) )/2.0 

FNRG 

113 


CALL DERIV3 ( TC« XN« IE « 1«Q1I 

ENRG 

114 


TCNW^QK 11 

ENRG 

115 


RETURN 

ENRG 

116 


END 

ENRG 

117 



SUBROUTINE GEOM < S ,0S , RS ,CK ,CSF, S IF, X8 ) 

GEOM 

1 

C 


GEOM 

2 

C 

SUBROUTINE GEOM CALCULATES THE BODY GECMETRY 

GECM 

3 

c 


GEOM 

4 

c 

SUBROUTINE GEOM CALLS SUBROUTINE SMOOTH. 

GEOM 

5 

c 


GEOM 

6 

c 

SUBROUTINE GEGM IS CALLED BY MAIN. 

GEOM 

7 

c 


GEOM 

8 


COMMON /BODY/ HANGLE , X JFAC , I GECM , JFAC 

GEOM 

9 


COMMON / K J I / IJK 

GEOM 

10 


DIMENSION Z AX ( 30 1 ) « RhA<301), SUR(301), CKA<301), THA(301) 

GEOM 

11 


DATA KBL/1H / 

GEOM 

12 


I PN4=4 

GEOM 

13 


GO TO (40,10,70) , IGEOM 

GEOM 

14 

c 


GEOM 

15 

c 

IGEOM = 1 HYPERBOLOID 

GECM 

16 

c 

= 2 PARABOLOID 

GEOM 

17 

c 

= 3 CURVE FIT 

GECM 

18 

c 


GEOM 

19 

c 


GECM 

20 

c 

PARABOLOID 

GEOM 

21 

c 


GEOM 

22 

10 

CONTINUE 

GEOM 

23 


X$«$+DS 

GECM 

24 


DR=DS/SQRTC1.00+RS*R$ ) 

GEOM 

25 


REXP=RS+DR 

GEOM 

26 


DELT A=1 .00 

GEOM 

27 

20 

CONTINUE 

GEOM 

28 


IF (ABS(DELTA).LE. 0.00000010) GO TO 30 

GEOM 

29 


RF AC=5QRT ( 1 • GO+R EXP*REXP) 

GEOM 

30 


DELTA- ( XS-G. 50*REXP*RF AC-0 • 50+AL0G (REXP+RF AC ) ) /RFAC 

GEOM 

31 


REXP^REXP+DELTA 

GE OM 

32 


GO TO 20 

GEOM 

33 

30 

CONTINUE 

GECM 

34 


XB=REXP*REXP/2.00 

GEOM 

35 


RS^REXP 

GEOM 

36 
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DRX=1.00/SQRT(1.00+RS*RS) 


GEOM 

37 


CSF=RS/SQRT( 1 .0C+RS*RS) 


GEOM 

38 


SIF=DRX 


GEOM 

39 


CK=$IF**3 


GE CM 

40 


RETURN 


GEOM 

41 

40 

CCNTINUE 


GEOM 

42 

C 



GE CM 

43 

C 

FOR 4 HYPERBOLOID ASYMPTOTIC TO A CONE OF TOTAL INTERIOR 

ANGLE 

GEOM 

44 

C 

OF ( 2. * HANGLE) DEGREES 


GEOM 

45 

c 



GEOM 

46 


ANG=HANGLE/57. 2957795 


GEOM 

47 


CT1=ATAN( ANG) **2 


GEOM 

48 


CT2=1.00+CT1 


GEOM 

49 


DERR=0S*SQRT(CT1+RS*RS+1.0)/SQRTCCT2*RS*RS+1.0) 


GEOM 

50 


REXP=RS+DERR/2.00 


GEOM 

51 

50 

CCNTINUE 


GEOM 

52 


DEFR=DS*SQRT(CT1*REXP*REXP+1.0)/SQRT(CT2*REXP*REXP+1.0) 


GEOM 

53 


CELT =RS+DERR/2 *0 O-REX P 


GEOM 

54 


IF (DELT.LE.C. 00001) GO TO 60 


GEOM 

55 


REXP=RS+DERR/2.00 


GEOM 

56 


GC TO 50 


GEOM 

57 

60 

RS=RS+DERR 


GEOM 

58 


SQPT=$GRT< 1.00+CT2*R$*RS) 


GEOM 

59 


XB=(-1.00+SQRT(1.00+CT1*RS*RS))/CT1 


GE CM 

60 


CK=1.00/( SQPT*SQPT*SQPT) 


GEOM 

61 


CSF=RS/SQPT 


GEOM 

62 


$IF=SQRT( 1.00-CSF*CSF> 


GEOM 

63 


RETURN 


GEGM 

64 

C 



GEOM 

65 

c 

CURVE FIT OF PIECEWISE CONTINUOUS FUNCTION 


GEOM 

66 

c 



GECM 

67 

70 

CCNTINUE 


GEOM 

68 


IF ( IJK.EQ.123) GO TO 110 


GEOM 

69 


1=0 


GEOM 

70 

80 

CCNTINUE 


GEOM 

71 


1 = 1 + 1 


GEOM 

72 


IF < I*EQ;302) GO TO 90 


GEOM 

73 


READ ( I RN4 ,1 20 ) ZAX f I ) , RW A II ) , SUR ( I) , CKA ( I) , THA(I) , KNO 


GEOM 

74 


IF ( KND-KBL ) 100,80,100 


GEOM 

75 

90 

CCNTINUE 


GECM 

76 


1 = 1-1 


GEOM 

77 


WRITE (6,130) SUR(D 


GEOM 

78 

100 

CONTINUE 


GEOM 

79 


I JK= 123 


GEOM 

80 


NX= I 


GECM 

81 

110 

CCNTINUE 


GECM 

82 


S=S+DS 


GEOM 

83 


CALL INTRP3 ( S ,SUR , Z AX , NX , XB ) 


GEOM 

84 


CALL INTRP3 ( S , SUR ,RW A , NX , RS ) 


GEOM 

85 


CALL INTRP3 ( S , SUR ,CKA , NX ,CK ) 


GEOM 

86 


CALL INTRP3 ( S , SUR ,THA , NX , THC ) 


GEOM 

87 


CSF=COS( THC) 


GEOM 

88 


S I F=S I N( THC ) 


GEOM 

89 


S=S-DS 


GEOM 

90 


RETURN 


GEOM 

91 

c 



GEGM 

92 

c 



GEOM 

93 

c 



GEOM 

94 

120 

FORMAT (5E15.6,A1) 


GECM 

95 

130 

FORMAT <1H0,79HWARNING - CURVE FIT GEOMETRY DATA EXCEDES 

ARRAY 

STOGEOM 

96 


1R AGE ; DATA TRUNCATED AT S = ,1PE13.6//| 


GEOM 

97 


END 


GECM 

98 
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SUBROUTINE HCP < TR, CP I I , H 1 1 , HIFAC ) 

HCP 

1 

c 


HCP 

2 

c 

SUBROUTINE HCP INTERPOLATES FOR ENTHALPY AND SPECIFIC HEAT 

HCP 

3 

c 

FOR ONE TEMPERATURE 

HCP 

4 

c 


HCP 

5 

c 

SUBROUTINE HCP CALLS SUBROUTINE INTER3. 

HCP 

6 

c 


HCP 

7 

c 

SUBROUTINE HCP IS CALLED BY SUBROUTINES ENERGY, SHVALS, AND 

THERM. HCP 

8 

c 


HCP 

9 


COMMON /COMFSA/ Cl NF (6), CPlFS (6), DELHIF C 6)»HINF(6J 

HCP 

10 


COMMON /COMNS/ NS 

HCP 

11 


COMMON /COMSML/ SMALLT 

HCP 

12 


COMMON /COMTAB/ CPTA8 ( 50 , 6 J , HT AB ( 50, 6 ) ,TMPTAB C 50 ) ,NTAB 

HCP 

13 


DIMENSION HI FAC( 6 ) 

HCP 

14 


DIMENSION CP 1 1 ( 6 ) , HIK6) 

HCP 

15 

c 


HCP 

16 

c 

TR - DEGREES R 

HCP 

17 

c 


HCP 

18 


F AC= I . O+SMALL T 

HCP 

19 


JC=0 

HCP 

20 

10 

JC=JC+1 

HCP 

21 


IF (JC.GT. NTAB) GO TO 20 

HCP 

22 


IF (TR.GT.TMPTAB(JC)*FAC) GO TO 10 

HCP 

23 

20 

CONTINUE 

HCP 

24 


IF (JC.LT.2) JC~2 

HCP 

25 


IF ( JC.GT. (NTAB-1)) JC=NTAB-1 

HCP 

26 


00 30 J- 1 , NS 

HCP 

27 


CALL INTER3 ( TR , TMPT AB ( JC-1 ) ,TMPTAB( JC 1 , TMPT AB ( JC + 1 ) , HTAB ( JC 

-1,J),HCP 

28 


1HTAB(JC, J J ,HTAB( JC+1,J ),HIFAC< J)) 

HCP 

29 


CALL INTER 3 < TR, TMPTA8 ( JC-1) ,TMPTAB( JC) ,TMPTAB ( JC + 1 ) , CPTAB (JC-1 J ) HCP 

30 


1,CPTAB(JC, J), CPTAB (JC+1,J), CPI KJ) ) 

HCP 

31 


HI I ( J)=HIFAC( J)*TR+DELHIF< J) 

HCP 

32 

30 

CCNTINUE 

HCP 

33 

C 


HCP 

34 

C 

CPU - FT**2/SEC**2-DEGR 

HCP 

35 

C 

H 1 1 - FT**2/SEC**2 

HCP 

36 

c 


HCP 

37 


RETURN 

HCP 

38 


END 

HCP 

39 



SUBROUTINE HCPA ( TA , I E ,HREF , CPREF , TTS , TREF ,H I , CP I ) 

HCPA 

1 

C 


HCPA 

2 

C 

SUBROUTINE HCPA INTERPOLATES FOR ENTHALPY AND SPECIFIC HEAT 

HCPA 

3 

C 

FOR AN ARRAY OF TEMPERATURES 

HCPA 

4 

C 


HCPA 

5 

C 

SUBROUTINE HCPA CALLS SUBROUTINE INTER3. 

HCPA 

6 

C 


HCPA 

7 

C 

SUBROUTINE HC^A IS CALLED BY SUBROUTINE THERM. 

HCPA 

8 

c 


HCPA 

9 


CCMMCN /COMFSA/ CINF ( 6 1 ,CP IFS ( 6 ) , DELHIF( 6 ) ,HINF< 6 ) 

HCPA 

10 


COMMON /COMNS/ NS 

HCPA 

11 


CCMMCN /COMSML/ SMALLT 

HCPA 

12 


CCMMON /COMTAB/ CPTAB ( 50,6 J ,HTAB< 50, 6) ,TMPTAB ( 50) ,NTA8 

HCPA 

13 


DIMENSION T A ( 51 ) 

HCPA 

14 


DIMENSION HI (51, 6) 

HC PA 

15 


DIMENSION CP I ( 51 , 6 ) 

HCPA 

16 

c 


HCPA 

17 

c 

TR - DEGREES R 

HCPA 

18 

c 


HCPA 

19 


FAC= 1.0+ SMALLT 

HCPA 

20 


DO 40 N~ 1 , IE 

HCPA 

21 


TR=TA(N)*TTS*TREF 

HCPA 

22 


JC = 0 

HCPA 

23 

10 

JC=JC+1 

HCPA 

24 


IF (JC.GT. NTAB) GC TO 20 

HCPA 

25 


IF (TR.GT.TMPTABI JC)*FAC) GO TO 10 

HCPA 

26 

20 

CONTINUE 

HCPA 

27 
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onnnnoon »- o o o no nonoonnnnoo 


30 

40 


IF (JC.LT.2) JC=2 

IF < JC.GT.(NTAB-n) JC=NTAB-1 

DQ 30 J=1 , NS 

CALL INTER3 < TR, TMPTAB < JC-1 ) ,TMPTAi 
1HT AB ( JC « J ) ,HTAB< JC + 1, J), HI FAC) 

CALL INTER3 < TR, TM PTAB ( JC- 1 ) , TMPTAI 
1,CPTAB(JC, Jl ,CPTAB( JC + 1, J) ,CPIFACl 
HI (N, J)=(H IFAC*TR+DELHIF< J M/HREF 
CPI(N,J)=CPIFAC/CPREF 
CONTINUE 
CONTINUE 
RETURN 
ENC 


HC PA 

28 

HC PA 

29 

HC PA 

30 

,HCPA 

31 

HC PA 

32 

> HC PA 

33 

HC PA 

34 

HC PA 

35 

HCPA 

36 

HC PA 

37 

HCPA 

38 

HCPA 

39 

HCPA 

40 


SUBROUTINE INTERP < XX , XN, F2, I E , FF ) INTP 

I NTP 
INTP 

SUBROUTINE INTERP USES FUNCTION TLU TO INTERPOLATE IN ARRAY F2 INTP 
FOR THE VALUE FF CORRESPOND! NG TO THE VALUE XX I N ARRAY XN. INTP 

IF XX .LT. XN ( 1 ) .OR. XX .GT. XN(IE), FF IS SET EQUAL TO F2(IE) INTP 

AND A MESSAGE IS PRINTED. INTP 

INTP 

SUBROUTINE INTERP IS CALLED BY SUBROUTINE VPRFLE • INTP 

INTP 

SUBROUTINE INTERP CALLS FUNCTION TLU. INTP 

INTP 

DIMENSION XN(IE)t F2IIE) INTP 

INTP 

INTP 

FF=TLU( IE, F2, XN,XX, NFLAG) INTP 

IF (NFLAG. NE.l) RETURN INTP 

WRITE (6,10) INTP 

FF=F2( IE) INTP 

RETURN INTP 

INTP 

INTP 

INTP 


FORMAT ( 1H0, 10X, 38HINADAQUATE TABLE FOR SUBROUTINE I NT EP P , // 1 1 X , 4 3 1 N TP 
1HST ANDARD FIXUP TAKEN - EXECUTION CONTINUING) INTP 

ENC INTP 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


SUBROUTINE INTEP3 ( X , XI , X2 ,X3 , F 1 , F2 , F3 , F ) 

INT3 

1 


INT3 

2 

SUBROUTINE INTEP3 INTERPOLATES FOR THE VALUE F CORRESPONDING TO 

INT3 

3 

POINT X USING 3 POINT LAGRANGIAN INTERPOLATION. 

INT3 

4 


I NT3 

5 

SUBROUTINE INTEP3 IS CALLED BY SUBROUTINES INTRP3, HCP , AND HCPA. 

I NT3 

6 


I NT3 

7 

ASSUMES XI .LE. X .LE. X3. 

I N 73 

a 


INT3 

9 

AN1=(X-X2)*(X-X3) 

I NT3 

10 

AN2=(X-X1)*(X-X3> 

I NT3 

11 

AN3=(X-X1 )*(X-X2) 

INT3 

12 

DN1=(X1-X2)*(>1-X3) 

INT3 

13 

DN2= ( X2-X 1 ) * ( X2- X3 ) 

INT3 

14 

DN3= (X3-X1 )*( X3-X2) 

I NT3 

15 

CN 1 = AN1 /DN 1 

INT3 

16 

CN2= AN 2/ DN 2 

I NT3 

17 

CN3=AN3/DN3 

INT3 

18 

F=CN1*F1+CN2*F2+CN3*F3 

INT3 

19 

RETURN 

I NT3 

20 

END 

I NT3 

21 
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OOOOOOO •— O OOOOOOOOOOO i— ooooooooooooo 


SUBROUTINE INTRPS ( XX , YY » X ,Y ,NP,NNUt OYY ) 


SUBROUTINE INTRPS CALLS SUBROUTINE SMOOTH, 

SUBROUTINE INTRPS IS CALLED BY SUBROUTINE SMTHPR. 

COMMON /COMSML/ SMALL T 

USES SUBROUTINE SMOOTH TO INTERPOLATE FOR YY IN ARRAY Y 
CORRESPONDING TO XX IN ARRAY X 

NP = NUMBER OF POINTS IN ARRAYS 

NU = 1/2 OF THE NUMBER OF POINTS TO BE USEO IN SMOOTH 
NNU = PREFERRED VALUE OF NU 

DIMENSION X ( NP ) » Y(NP) 

FAC=1 .0+SMALLT 

JC = 0 

JC=JC+1 

IF (XX.GT.XI JC)*FAC) GC TO 10 
NU=NNU 

NFAC=NP-JC+1 
IF (NFAC.LE.NU) NU=NF AC 
IF (JC.LE.NU) NU= JC 
IF (NU.LE.O) NU= 1 

CALL SMOOTH ( XX , X , Y, NP , YY , DYY , NU r DDYY ) 

RETURN 

END 


INTS 1 
INTS 2 
INTS 3 
INTS 4 
INTS 5 
INTS 6 
INTS 7 
INTS 8 
INTS 9 
INTS 10 
INTS 11 
INTS 12 
INTS 13 
INTS 14 
INTS 15 
INTS 16 
INTS 17 
INTS 18 
INTS 19 
INTS 20 
INTS 21 
INTS 22 
INTS 23 
INTS 24 
INTS 25 
INTS 26 
INTS 27 
INTS 28 


SUBROUTINE INTRP3 < XX , X, Y F NPNT S, YY I 

SUBROUTINE INTRP3 SETS UP THE CALLING ARGUMENT FOR 
SUBROUTINF INTER3 

SUBROUTINE INTRP3 CALLS SUBROUTINE INTER3. 

SUBROUTINE IKTRP3 IS CALLED BY MAIN. 

YY IS THE VALUE RETURNED FROM ARRAY Y 
WHICH CORRESPONDS TO THE VALUE XX IN ARRAY X 

COMMON /COMSML/ SMALL T 
DIMENSION X(NPNTS), Y(NPNTS) 

FAC=1.0+SMALLT 

jc=o 

JC=JC+1 

IF (XX.GT .X(JC )*FAC) GO TO 10 

IF (JC.LT.2) JC= 2 

IF < JC.GT.(NPNTS-l)) JC=NPNTS-1 

CALL INTER3 ( XX , X (JC-1 ) F X ( JC J , X ( JC + 1 ) , Y ( JC-1) » Y ( JC ) F Y ( JC + 1 ) » YY ) 
RETURN 


I TR3 1 
ITR3 2 
I TR3 3 
ITR3 4 
ITR3 5 
ITR3 6 
ITR3 7 
ITR3 8 
ITR3 9 
ITR3 10 
ITR3 11 
ITR3 12 
ITR3 13 
ITR3 14 
ITR3 15 
ITR3 16 
ITR3 17 
ITR3 18 
ITR3 19 
ITR3 20 
ITR3 21 
ITR3 22 
I TR3 23 


END 


I TR3 24 


SUBROUTINE 

MASS 


MASS 

l 




MASS 

2 

SUBROUTINE 

MASS 

SOLVES THE MASS CONSERVATION EQUATION 

MASS 

3 




MASS 

4 

SUBROUTINE 

MASS 

CALLS SUBROUTINE DERIV3. 

MASS 

5 




MASS 

6 

SUBROUTINE 

MASS 

IS CALLED BY MAIN. 

MASS 

7 




MASS 

8 

COMMON /BODY/ HA NGL E , X JF AC , I GECM , J FAC 

MASS 

9 

COMMGN /COMARL/ 

XNSP< 202) f XSOL(200) 

MASS 

10 

CCMMON /CO MAR 1/ 

AA(51) t BB(51),CAEQ(51) ,C0N(51) fC01(51) f C02(51) 

■CPSMASS 

11 


IT (51 >,EMBAR< 51 ) , PCC 51 ) . PCN { 51) ,PE < 51 ) t PFAC ( 51 ) f PS C 51 ) , PO < 51 ) ,P0N(5MASS 12 
21) V P1< 51) «P1N< 51) »P2( 51) V P2N(51)«Q1(51) V Q2(51) f RC ( 5 1 ) , RCON ( 5 1 ) *RCSMA SS 13 
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ooo mono ro non ooo ono 


C 


10 


0 


0 


3F< 51) , RUSH (51) ,RVISC( 5 1 ) , Rl( 51 1 ,R2 (5 1 ) , TC ( 51) . Tl « 51) , 

T2(51),T20(51MASS 

14 

4) ,T21(51),UC(51),UCN(51),UCl(51) ,U 1 ( 51 > , U2 ( 5 1 ) ,U20(51) ,VC(51) 

, VCO ( MASS 

15 

551), VC 11(51), VC 12(51), VG (51), VGN(51),VGS(51),VISC(51) 

, VS ( 51) , 

VO ( 5 IMA SS 

16 

6) « V0N( 511 , Vl( 51) , V2( 51) , V2N( 51 ) 



MASS 

17 

COMMON / CO MG/ CAT, CNS , CRN I ,REF AC, SSF AC , SWF AC , THIN, VPG 

, I, K, NITER 

MASS 

18 

COMMON /C0MG2/ CK , CK2 , CSF2 ,RS2 ,S I F2, XB2, XNSPM 



MASS 

19 

COMMON /COMG3/ C SF , RS , S I F » XB , XNSI 



MASS 

20 

COMMON /COMRX/ RSH,XSH 



MASS 

21 

COMMON /COMVSP/ VSPPl,VSPP2 



MASS 

22 

COMMON / 1 NSH/ CONO , S ,UPSH, XNS , EPS, TPSH , VI SCO 



MASS 

23 

COMMON / I NV2/ XNS A , XNS I VO , XNS I VI ,XNSTMP , NA N 



MASS 

24 

COMMON /OUT SH/ PPS , PPS 1 , PPS2 , PSP, REY SH, RRS , RRS 1 , RRS2 , 

RSPfTSP, 

TTS, 

TMASS 

25 

1TSI,TTS2,USP,UUS,UUS1,UUS2,VSP,VVS,VVS1,VVS2 



MASS 

26 

CCMMCN /SOLV/ A1 ( 51 J , A2 ( 51 ) , A3 ( 511 , A4 < 51 ) , DN ( 52 ) , DS, XN ( 52 ) , I E 

tIM 

MASS 

27 




MASS 

28 

DO 10 N=2 » I E 



MASS 

29 

AAtN)=AA(N-l )+DNtN-l)*(R2(N-l)*U2(N-l)+R2<N)*U2<N» )/2 

• 


MASS 

30 

BB(N)=BB<N-1)+DN<N-1)’MR2(N-1)*U2<N-1>*XN<N-1)+R2<N)*U2IN)*XN(N>)/MASS 

31 

12. 



MASS 

32 

IF (S.GE.O.OOCl) GO TO 30 



MASS 

33 




MASS 

34 

STAGNATION PCINT 



MASS 

35 




MASS 

36 

A I A=8.*BB( IE )*RRS2*UUS2*CSF2/DS-DS 



MASS 

37 

8IB=4.*AA< IE)*RRS2*UUS2*RS2/DS-0S 



MASS 

38 

C I C= -DS 



MASS 

39 

ROT=BIB*BIB-AIA*CIC 



MASS 

40 

XNS=(-BIB+SQRT(ROT) )/AIA 



MASS 

41 

IF (XJFAC.LT. 0.5 ) XNS=1.0/(RRS2*USP*AA(IE)-1.0) 



MASS 

42 




MASS 

43 

SHOCK-LAYER THICKNESS 



MASS 

44 




MASS 

45 

XNS2=XNSl/2.0 



MASS 

46 

XNST = XNS L* 2. 0 



MASS 

47 

IF (XNS.GT.XNST) XNS=XNST 



MASS 

48 

IF (XNS. LE. 0.0) XN$=XNS1 



MASS 

49 

IF (XNS.LT.XNS2) XNS=XNS2 



MASS 

50 

XNS=0.8*XNS1+0.2*XNS 



MASS 

51 

XNSTMP=XNS 



MASS 

52 

IF (NAN.EQ.-l) XNS = XN STMP 



MASS 

53 

XNSI V0=0.0 



MASS 

54 

XNS I V 1=0.0 



MASS 

55 

DO 20 N=l, IE 



MASS 

56 




MASS 

57 

NORMAL VELOCITY PROFILE 



MASS 

58 




MASS 

59 

CQ2(N)=XNS*(RS2**XJFAC*AA(N)+XNS*CSF2*XJFAC*BB1N) )*RRS2*UUS2 


MASS 

60 

VC(N)=8.*XNS*( AA(N)*RS2+XNS*BB(N)*CSF2>*RRS2*UUS2/<DS*DS*< l.+XNS*XMASS 

61 

IN ( N ) >**2*RC(N) ) 



MASS 

62 

IF (XJFAC.LT. 0.5) VC(M=XNS*AA(N)*RRS2*USP/( ( 1.0*XNS*XN(N) )*RC(N) )MASS 

63 

CCNTINUE 



MASS 

64 

GO TO 50 



MASS 

65 




MASS 

66 

S GREATER THAN ZERO 



MASS 

67 




MASS 

68 

AIA=BB< IE)*CSF2*RRS2*UUS2 



MASS 

69 

BIB*AA( IE)*RS2*RRS2*UUS2/2. 



MASS 

70 

CIC=-C01( IE14(RS+CNS*CSF)**JFAC*( (1.^*CK*CNS)*RRS*VVS- 

XNSP ( II*RRS*UMASS 

71 

1US)*DS 



MASS 

72 

ROT=BIB*BI B-A IA*C IC 



MASS 

73 

XNS=(-BlB+SQRT(ROT))/AIA 



MASS 

74 

IF (XJFAC.LT. 0.5) XN$=-CI C/( RR S2*UUS2*AA( IE) ) 



MASS 

75 




MASS 

76 

SHOCK-LAYER THICKNESS 



MASS 

77 




MASS 

78 

XNSI V1=0. 0 



MASS 

79 

A I A=CSF* ( 2 .00*RRS+UUS*BB( I EJ-CSF) 



MASS 

80 

BIB=RS*(RRS*UUS*AA( IEI-CSF) 



MASS 

81 

CIC=-RS**2 



MASS 

82 

ROT= B I B*B I B— A I A*C IC 



MASS 

83 

XNSI V0=— B I 8/ A I A 



MASS 

84 
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IF (ROT.GE.O.OOI XNSI VL=XNSI VO+SQRTt ROTI / AIA 

MASS 

85 


IF IXJFAC.LT. 0.5) XNSIV1=RS/(RRS*UUS*AMIE>-CSF) 

MASS 

86 


XNS2=X NS 1/2.0 


MASS 

87 


IF C XNS*LT *XNS2 ) XNS=XNS2 


MASS 

88 


XNSTHP*XNS 


MASS 

89 


XNSA=( XNSTMP+XNS IV1 )/2 .0 


MASS 

90 


IF (NAN.EQ.i) XNS=XNS I VI 


MASS 

91 


IF <NAN.EQ.OJ XNS=XNS A 


MASS 

92 


IF (NAN.EQ.-l) XNS=XNSTHP 


MASS 

93 


IF (NAN.EQ.-2) XN$^=XNSIV1 


MASS 

94 


DO 40 N=l, IE 


MASS 

95 

c 



MASS 

96 

c 

NORMAL VELOCITY PROFILE 


MASS 

97 

c 



MASS 

98 


C02(M = XNS*(RS2**XJFAC*AA(N)+XNS*CSF2*XJFAC*BB(N) )*RRS2*UUS2 

! MASS 

99 


V I=(C02(N )-C01 (N) ) /DS 


MASS 

100 


VC(N)=-VI/(RRS*VVS*RC(N)*( 1. +CK*CNS*XN ( N) ) *( RS+CNS*XN ( N) *C SF ) ** JF AMA SS 

101 


1CJ+XNSPC I >*XN(N)*UUS*UC(N)/(VVS*< 1 .+CK*CNS*XN l N >) ) 

MASS 

102 

40 

CCNTINUE 


MASS 

103 

50 

CONTINUE 


MASS 

104 


IF ( S.GE. 0.0001) GO TO 60 


MASS 

105 


XNS1=XNS 


MASS 

106 

60 

CNS=(XNSl+XNS)/2. 


MASS 

107 


X$H=XB-CNS*SIF 


MASS 

108 


P SH-RS+CNS*CSF 


MASS 

109 


IF ( THI N.GE • 0. 0) GO TO 70 


MASS 

110 


IF (NITER. GT.l) GO TO 70 


MASS 

111 


VPG=(VSPP1+VSPP2 )/2.0 


MASS 

112 

70 

CONTINUE 


MASS 

113 


DO 110 N«1»IE 


MASS 

114 


IF (THIN. GE. 0.0) GO TO 80 


MASS 

115 


IF (NITER. GT.l) GO TO 80 


MASS 

116 


VGS ( N ) = ( VC I2(N)-VCI1(N))/D$ 


MASS 

117 


VG(N)=(VCI1(N)+VCI2{N) )/2. 


MASS 

118 

80 

CCNTINUE 


MASS 

119 


RNSH (N )=CNS/ ( l.+CK*CNS*XN(N) ) 


MASS 

120 


IF (S.GE.0.00C1) GO TO 90 


MASS 

121 


V 1 ( N ) =VC ( N ) 


MASS 

122 


RCSF(N)=CNS/( l.+CK*CN$*XN(N) ) 


MASS 

123 


GO TO 100 


MASS 

124 

90 

RCSF(N)=CSF*CNS/(RS+CNS*XN(N)*CSF> 


MASS 

125 

100 

V2(N)=VCCN) 


MASS 

126 


VCD(N)=VC(N)*VVS 


MASS 

127 

no 

VS(N)=(V2(N>-V1(N) )/DS 


MASS 

128 


IF (THIN. GE. 0.0) GO TO 120 


MASS 

129 


CALL DERIV3 ( VO, XN , I E * 1 , VON) 


MASS 

130 


CALL DERIV3 ( VG, XN , I E , 1 • VGN J 


MASS 

131 

12 0 

CALL DERIV3 ( V2 , XN , I E , 1, V2N ) 


MASS 

132 


RETURN 


MASS 

133 


END 


MASS 

134 


SUBROUTINE NMGMNT 


NMNT 

l 

C 



NMNT 

2 

C 

SUBROUTINE NMCMNT SOLVES THE N MOMENT 

EQUATION 

NMNT 

3 

C 



NMNT 

4 

c 

SUBROUTINE NMOMNT CALLS SU8RCUT INE SHVALS. 

NMNT 

5 

c 



NMNT 

6 

c 

SU8RCUT I NE NMCMNT IS CALLED BY MAIN. 


NMNT 

7 

c 



NMNT 

8 


COMMON / COMAPL/ XNSP ( 2G2 ) , XSOL ( 200 ) 


NMNT 

9 


COMMON /C0MAR1/ AA ( 5 1 ) , BB ( 51 ) , C AEQ ( 5 1 ) 

,C0N(51),C01(51),C02(5 

1 ) t CPSNMNT 

10 


1T( 51),EMBAR( 5l)#PC( 51 J,PCN(51) ,PE(51) * 

PFACI51) , PS ( 51 ) , p 0(51) 

»P0N(5NMNT 

11 


21) ,P1(51) , PIN (51) ,P2(51), P2N(51),Q1(51 ),Q2(51),RC( 51),RC0N(5 

1) tRCSNMNT 

12 


3F ( 51 ) ,RNSH(51) ,RVISC( 51) ,R1( 51 ) ,R2 ( 51 ) 

t TC ( 51 ) *T1(51) fT2( 51)* 

T20 ( 5 1NMNT 

13 


4) ,721(51) ,UC<51) ,UCN(51) ,UC1 (51) ,U1(51) ,02(51 1 ,U20 ( 5 1 i , VC C 5 1 

) f VCD (NMNT 

14 


551),VCI1(51),VCI2(51),VG(51),VGN(51),VGS(51),VISC(51),VS(51) 

tVO< 51NMNT 

15 


6) » VON (51)tVi(5l) ,V2(51),V2N(51) 


NMNT 

16 
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COMMON /COMG/ CAT,CNS ,CRNI ,REF AC, SSFAC, SWF AC ,THIN « VPG » I , K, NITER 

NMNT 

17 


COMMON /C0MG2/ CK,CK2,CSF2tRS2,SIF2, XB2,XNSPM 

NMNT 

18 


COMMON /COMSO/ PPSO.TTSO, VVSO*UUSO ,NSOLD 

NMNT 

19 


COMMON / I NSH/ CONO, S »UPSH , XNS , EPS , TPSH » VI SCO 

NMNT 

20 


COMMON /OUTSH/ PPS,PPS1,PPS2,P$P, REYSH , RR S ,RRS 1 , RRS2 , R SP, TSP ,TTS, 

TNMNT 

21 


lTSl,TTS2.USP,UUS,UUSl,UUS2,VSP,VVS f VVSl,VVS2 

NMNT 

22 


COMMON /SOLV/ A 1 ( 5 1 ) f A2 ( 51 ) , A3 < 51 ) , A4( 51 ) , ON ( 52 J . OS * XN < 52 ) • I E * IM 

NMNT 

23 

c 


NMNT 

24 

c 


NMNT 

25 


DIMENSION P2K51I, P21NI51J, P22(51)» P22NI511, P33I51I, P33N(51) 

NMNT 

26 

c 


NMNT 

27 

c 

SET EDGE VALUES 

NMNT 

28 

c 


NMNT 

29 


P21N< IE )=RRS2*UUS2**2*CK2*XNS/{ PPS2* < 1 .+CK2+XNS) > 

NMNT 

30 


P2 1 < I E J-l *0 

NMNT 

31 


P22N( IE )-— RRS2*VVS+VVS*( ( 1 .-UUS2+XNSP { I ) / ( VVS* ( 1 . +CK2*XNS ) ) ) *V2N ( 

I NMNT 

32 


lE)+UUS2*XNS*VSP/VVS/( VVS*< l.+CK2*XNS) ) >/PPS2 

NMNT 

33 


P22 ( I E ) =0.0 

NMNT 

34 


P2NC IE)=P21NC IE) 

NMNT 

35 


P2 ( I E )=1 • 

NMNT 

36 


RCUE)»U0 

NMNT 

37 


IF (THIN. GE. 0.0) GO TO 10 

NMNT 

3B 


P33N(IE)=-RRS2*VVS2*VVS2M ( 1 •-UUS2*XNS PM/ ( VVS2*( 1 • +CK2*XNS ) ) ) *VGN( NMNT 

39 


HE )+UUS2*XNS*VPG/VVS2/(VVS2*( l.+CK2*XNS) 1 ) /PPS2 

NMNT 

40 


P 33 ( I E ) =0 • 0 

NMNT 

41 


P2M IE)=P2N< IE)+P33N( IE) 

NMNT 

42 

10 

CONTINUE 

NMNT 

43 


PC ( I E ) =1 • 

NMNT 

44 


PCN ( IE)=(P1N( IE)+P2N( IED/2. 

NMNT 

45 


IF (S.LE. 0.0001) GO TO 20 

NMNT 

46 


PFAC(IE) = (— XN'SPI I >*PCN( I E ) /CNS *PSP /PP S ) / UUS 

NMNT 

47 

20 

CONTINUE 

NMNT 

48 


PE ( I E ) =1 • 

NMNT 

49 


P S ( I E ) =0# 

NMNT 

50 


R2IIEU1. 

NMNT 

51 


IF (S.GE. 0.0001) GO TO 40 

NMNT 

52 


CALL SHVALS (1 . 0 0 , 0. 00 * 1 . 00 * 0. 00 , TT SO , VVSO , UUSO, PPSO f 1 ) 

NMNT 

53 


PON ( I E ) = 0 • 0 

NMNT 

54 


IF (THIN. GE. 0.0) GO TO 30 

NMNT 

55 


PON ( I E ) = VV SC* VON ( I E )/PPSO 

NMNT 

56 

30 

CONTINUE 

NMNT 

57 


PC( IE)=1.0 

NMNT 

58 


P 1 ( I E ) = 1 • 

NMNT 

59 


P IN ( IE) =P2N( IE) 

NMNT 

60 


R1(IE)=1. 

NMNT 

61 


Vl(IE)— 1. 

NMNT 

62 

40 

KCN= I M 

NMNT 

63 


SM ALL= 1 • OE-6 

NMNT 

64 

C 


NMNT 

65 

C 

CALCULATE DERIVATIVE 

NMNT 

66 

C 


NMNT 

67 


DO 80 N = l, IM 

NMNT 

68 

C 


NMNT 

69 

C 

INTEGRATE, TRAPAZQ IDAL RULE, FRCM THE SHOCK TO THE BODY 

NMNT 

70 

C 


NMNT 

71 


P21N(K0N)=RRS2*UUS2**2*CK2*XNS*R2(KCN) *U2 (KCN)**2/ ( PPS2* ( 1 .+CK2*XNNMNT 

72 


1S*XN ( KON ) ) ) 

NMNT 

73 

C 


NMNT 

74 

C 

TVSL CONTRIBUTION 

NMNT 

75 

C 


NMNT 

76 


P21(K0N)=P21(K0N*1 )-DN(KON >* ( P21N ( KON + 1 ) +P 21N I KON ) ) /2 • 

NMNT 

77 


P22N(K0N)=-RRS2*VVS*VVS*f ( R2 (KCN) * V2 ( KON ) -R2 ( KON ) *U2 ( KON ) *UU S2*XNSNM NT 

78 


IP m *XN< KON)/ ( VVS*( l.+CK2*XN$*XM KON) ) ))*V2N( KON ) +UUS2*XNS*R 2< KON) NMNT 

79 


2*U2( KON)*< VS< K0N)+VSPW2(KCN)/VVS>/(VVS*( 1 .+CK2*XNS*XN(K0N ) ) ) J/PPSNMNT 

80 


32 

NMNT 

81 

C 


NMNT 

82 

c 

PSEUDO - FVSL CONTRIBUTION 

NMNT 

83 

c 


NMNT 

84 


P22( KCN)=P22<K0N*1 )-DN ( KCN )* ( P22N ( KON + 1) +P22N ( KON ) )/2. 

NMNT 

85 


P2N ( KON) =P21N ( KON ) 

NMNT 

86 


P2( KCN)=P21(K0N) 

NMNT 

87 


751 


IF (P2(K0N). LT. SMALL ) P 2 ( KCN ) = SMALL 
IF (THIN. GE. 0.0) GO TO 50 


C 

C 

C 


50 


60 


70 


80 


NMNT 
NMNT 
NMNT 

FVSL CONTRIBUTION NMNT 

NMNT 

P33N(KON)=-RRS2*VVS2*VVS2*(<R2(KCN)*VG(KON)-R2<KON)*U2(KON)*UUS2*XNMNT 
1NSPM*XN(K0N) /( VVS2*(I.*CK2*XNS*XN(K0N) ) ) ) *VGN( KON J +UUS2 *XNS*R 2 ( KONNMNT 
2>*U2(KCN)* ( VGS(KON)+VPG*VG ( KCN ) /VVS2 ) / ( VVS2* ( 1 . +CK2* XN S* XN ( KON )) ) JNMNT 


3/PPS2 NMNT 

P33(K0N)=P33 (KON+1 )-D N ( KON ) * ( P 33N ( KCN+ I ) + P3 3N ( KON ) ) / 2 . NMNT 

P2N(K0N)=P2N(K0N ) +P33N (KON) NMNT 

P2(KCN)=P2 (KGN)+P33(KCN) NMNT 

IF (P2(K0N).LT. SMALL) P2 < KCN ) = SMA LL NMNT 

CONTINUE NMNT 

P 2 ( KCN ) = P2 (KCN)*EMBAR(KCN)/(T2(K0N)*EMBAR ( IE ) ) NMNT 

IF (S.GE.O.OCOI) GO TO 70 NMNT 

P0N(K0N)=0.0 NMNT 

IF (THIN. GE. 0.0) GO TO 60 NMNT 

POM KCN)=VVSO*PG(KQN)*VG( KCN ) * VON ( KON) /( PPS0*T2(K0N) ) * ( EMBAR ( KON ) /NMNT 
1 EMBAR (IE)) NMNT 

CONTINUE NMNT 

PO(KCN)=PO(KON+i )-DN{KCN)*(PON(KQN*l)+PON(KQN) )/2. NMNT 

PI (KCN) = P2 (KCN ) NMNT 

P1N(KCN)=P2N(KCN) NMNT 

R1 (KCN)=R2 (KON) NMNT 

VI (K0N)=V2(KGN) NMNT 

PE(K0N)=P21(K0N) +P22( KON) NMNT 

PC(K0N)=( P 1 ( KGN) *P2(KCN> )/2. NMNT 

RC ( KCN) =(R2(KCN) + R 1 ( K CN ) )/2.0 NMNT 

PCMKQN) = ( PIN(K0N)+ p 2N (KON ) )/2. NMNT 

PS(KONM( P2( KON)-Pl(KQN) )/CS NMNT 

IF (S.LE. 0.0001) GO TO 80 NMNT 

PFAC (KCN) =(PS( KON) -XNSP( I >*XN( KON ) *PCN ( KC N ) /CNS+PSP*PC ( KON ) / PP S ) / UNMNT 
1US NMNT 

KC N-KON— 1 NMNT 

RETURN NMNT 

END NMNT 


88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 


C 

C 

c 

C 

c 

c 


SUBROUTINE RESET RSET 

RSET 

SUBROUTINE RESET PRINTS THE SOLUTION DATA AND RESETS VARIABLES RSET 
FOR THE NEXT SOLUTION STATION RSET 

RSET 

SUBROUTINE RESET IS CALLED BY MAIN. RSET 

RSET 

COMMON /COMARL/ XN SP ( 202 ) * XSOL ( 200 I RSET 


CCMMCN /CO MAR 1/ AA ( 5 1 ) , BB ( 51 ) , C A E Q ( 5 1 ) , C ON ( 5 1 ) , CO 1 ( 5 1 ) , C 02 ( 5 l ) , C P SRS ET 
1T(51),EMBAR( 51),PC(51 )*PCN(51) ,PE ( 51 > , PFAC ( 51 ) , P S < 51 ) , PO ( 5 1 ) , PGN(5RSET 
21), PI (51) , PIN (51 ),P2(51),P2N(51),01(51),02(51),RC(51), RC0NC51) ,RCSRSET 
3F(51),RNSH(51) ,R VI SC( 5 1) ,R1 ( 51 ) ,R2 < 5 1 ) , TC ( 51 ) , T 1 ( 5 1 ) , T2< 51 ) , T20 ( 5 IRS ET 
4),T21(51),UC(51),UCN( 51), UC 1(51), Ul( 51) ,U2(51) ,U20(51) *VC(51 ) , VCD (RSET 
551),VCI1(51),VCI2(51),VG(51) ,VGN(51),VGS(51) ,VISC(51),VS(51) ,V0(51RSET 


6>,V0M 51) , VI (51) ,V2( 51), V2M 51) RSET 

COMMON /COMBC/ C A INF , C AW, C INF6 ( 6 ) , C I WW6( 6 ) RSET 

COMMON /COMDBL/ A JB ( 5 1 , 6 ) , A J M ( 5 1 , 6 ) , CC ( 5 1 , 6 ) , CCL ( 5 1 , 6 ) , CC N ( 5 1 , 6 ) , CRS ET 
IP I (51,6) ,C1( 51,6) ,C2( 51,6) ,020(51,6) ,DW( 51 ,6) , HI (51,6) , WO (51,6), W1RSET 
2(51,6) RSET 

COMMON /COMFS/ P I N F , R E Y I N , R I NF , T I NF , U I NF RSET 

COMMON /COMFSA/ C I NF ( 6 ) , CP I F S ( 6 ) , DELH I F ( 6 ) ,H I NF ( 6 ) RSET 

COMMON /COMG/ CAT f CNS , CRN I ,REF AC , S SF AC , S WF AC , T HI N , VPG , I , K , N I T ER RSET 

COMMON /C0MG2/ CK , CK2 ,CSF2 ,RS2 , S I F2, XB2, XNSPM RSET 

COMMON /C0MG3/ C SF , R S , S I F , XB , X NS l RSET 

COMMON /COMNS/ NS RSET 

COMMON /COMPRF/ SPRF ( 10 ) , NSPRF RSET 

COMMON /COMREF/ CONREF , CP R EF , HREF , PR EF ,R R E F , TR EF , URE F , VSREF , WREF RSET 

COMMON /COMRX/ RSH,XSH RSET 

CCMMGN /COMSML/ SMALL T RSET 

COMMON /COMSUM/ C P JSUM ( 5 1 ) , HCW SUM ( 51 ) , HWSUM( 5 1 ) , H J SUMW RSET 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 
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c 


10 

c 

c 

c 


20 


30 

40 


C 

c 

c 


c 

c 

c 


CCMMQN /CGMVS/ E MI ( 6 ) , VS A ( 6 ) , V SB ( 6 ) , VSC ( 6 ) , R , NSP I ( 6 ) 

RSET 

31 

CCMMON /COMW/ C I W( 6 > , C I WW { 6 ) , C P I W ( 6) , H I W ( 6 ) , HT FL B« TB , TCNW , T W 

RS ET 

32 

COMMON /COMXR/ ALP , ALT , BRAD, BO , CDF , C DFD, CO F 1 , CDF 2 , CDP , CD PD , C DP 1 , 

CORSET 

33 

1P2 » OLDSLP , PH I , SEND,WVFAC,XNSO, IEND , I UN , KPL TT P , NI TM I N , N I TTOT , NTOT 

,NRS ET 

34 

2TPL » NTW 


RSET 

35 

COMMON / I NSH/ CONO , S , UPSH , XN S , EP S , TP SH , V I SCO 


RSET 

36 

COMMON / T N V2/ XN $ A , XNS I VO , XNS T VI , XNS TMP , NAN 


RSET 

37 

COMMON /KNTR/ KNTR 1 , K NT W 1 , KNT W 2 


RSET 

38 

COMMON /OUTSH/ PPS , PP S l , P PS2 , PSP , REY SH ,RR S , RRS 1 , 

RRS2,RSP,TSP,TTS 

, TRS ET 

39 

1TS1,TTS2,USP,UUS,UUS1 , UUS2 ,V SP ,VVS , VVS1 , VVS2 


RSET 

40 

COMMON /PRLE/ SIGM,XLE 


RSET 

41 

CCMMGN /SOLV/ Al( 51) , A2( 51 ) ,A3(51) ,A4( 51 ) , DN(52) 

, DS , XN ( 52 ) , I E , I M 

RSET 

42 

COMMON /TITLE/ KT I TLE ( 20 ) 


RSET 

43 

DIMENSION TA ( 51) 


RSET 

44 

DIMENSION XM ( 5 1 ) , ED( 51) 


RSET 

45 

DATA BLNK/2H /,BN0/2HNC/ 


RSET 

46 



RSET 

47 

IF ( S .GE .0 .000 1 ) GO TO 20 


RSET 

48 

CRN I = 1 • 00 


RSET 

49 

XNSO=CNS 


RSET 

50 

SUM=0.0 


RSET 

51 

DC 10 J=l,NS 


RSET 

52 

SUM=$UM+CINF (J ) *H I NF ( J ) 


RSET 

53 

HTINF=0.5+SUM/HREF 


RSET 

54 



RSET 

55 

GLOBAL ITERATION HEADER DATA 


RSET 

56 



RSET 

57 

WRITE (6,180) UINF,PINF,TINF,CAINF,TB,BRAD,SIGM, 

XLE,XNSO,ALT 

RSET 

58 

CNT=BLNK 


RSET 

59 

C WS=BLNK 


RSET 

60 

C SS= BLNK 


RSET 

61 

CC A=BLNK 


RSET 

62 

IF (THIN.EQ.-l.) CNT=BNO 


RSET 

63 

IF (SWFAC.EQ.-l. ) CWS^BNO 


RSET 

64 

IF (SSFAC.E0.~1.) CSS=BNO 


RSET 

65 

IF (CAT.EQ.-l.) CCA=B NO 


RSET 

66 

WRITE (6,190) CNT,CWS»CSSfCCAf IE, I END, DS 


RSET 

67 

IF (NSPRF.NE.O) WRITE (6,200) ( SPR F ( NK ) , NK= 1 , NSPRF ) 

RSET 

68 

WRITE (6,210) BO,EPS,REYIN,REYSH,TREF,UREF,RREF, 

PREF , K 

RSET 

69 

REFAC=RRS*VVS*CNS/(EPS*EPS*VISCO) 


RSET 

70 

CFCH=2. : < ! UUS*PRS*=VVS*VISC (1)*(UCM1 )-CK*CNS*UC ( 1) ) /REF AC 

RSET 

71 

HEAT = TTS*RRS*VVS*(CONO*CON(l)*TCNW/VISCO-*-UUS*UUS*VISC ( 1) *UC( 1 »*UCNRSET 

72 

1( 1 )/TTS )/REFAC+EPS*EPS*HJSUMW/CNS 


RSET 

73 

STAN = HEAT/ (HT INF-HTFLR ) 


RSET 

74 

XNSP ( I )= ( XNS-XNS1 )/DS 


RSET 

75 

EDMAX=0.0 


RSET 

76 

NEDMAX= 1 


RSET 

77 

DC 70 N= 1 , IE 


RSET 

78 

IF ( I.GT.l ) GO TO 40 


RSET 

79 

VO ( N ) =VC ( N ) 


RSET 

80 

U20 ( N ) =U2 ( N ) 


RSET 

81 

T20(N)=T2< M 


RSET 

82 

DO 30 J= 1 , NS 


RSET 

83 

C20(N,J)=C2(N,J) 


RSET 

84 

CONTINUE 


RSET 

85 

CONTINUE 


RSET 

86 

GAMN=CPST(N)*CPREF/(CPST(N ) *CPR EF- R/ EMBAR ( N ) ) 


RSET 

87 

GAMMM1=GAMN-1.0 


RSET 

88 



RSET 

89 

MACH NUMBER PROFILE 


RSET 

90 



RSET 

91 

XM(N)=SQRT( (UUS*UUS*UC(N)*UC(N)+VVS*VVS*VC(N)*VC(N ) )/( ( GAMMM1 ) *TT SRS ET 

92 

1*TC(N) ) ) 


RSET 

93 

TA(N)=TC(N)*TTS*TREF 


RSET 

94 

IF (NS.E0.2) GO TO 50 


RSET 

95 



RSET 

96 

ELECTRON NUMBER DENSITY PROFILE 


RSET 

97 



RSET 

98 

ED(N)=0«515360*RC(N)*RRS*RREF*CC<N,5)*6«025E23/EMI(5) 

RSET 

99 

IF (EDMAX.LT. ED(N) ) NEOMAX=N 


RSET 

100 

IF (EDMAX.LT. ED(N) ) EDMAX=ED ( N ) 


RSET 

101 
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50 

CONTINUE 

RS ET 

102 


U 1 1 N ) = U2 ( N ) 

RS ET 

103 


V1(N)=V2(N) 

RSET 

104 


T1(N)=T2(N) 

RS ET 

105 


SUM=0* 0 

RSET 

106 


DO 60 J=1 v NS 

RSET 

107 


SUM=SUM+CC <N, J)*HI (N, J ) 

RSET 

108 


Cl ( N , J )=C2 ( N , J ) 

RSET 

109 

60 

CONTINUE 

RSET 

110 


R1(N)=R2(N) 

RSET 

111 


P1(N)=P2(N) 

RSET 

112 


IF (THIN. GE. 0.0) VC I 2 < N) = VC ( N ) 

RSET 

113 


IF ( THIN. LT. 0.0) VC I 2 ( N > = W VFAC*VC ( N) + ( 1. O-WVF AC ) *VC 1 1 ( N ) 

RSET 

114 

70 

C01(N)=C02(N) 

RSET 

115 


XNEDMX=XN(NEDMAX) 

RSET 

116 


YE CM AX=XNEDMX*XNS* BRA 0*12.0 

RSET 

117 


DO 80 N = 1 , I E 

RSET 

118 

80 

VCI2(N)=VCI2(N)/VCI2( IE) 

RSET 

119 


IF ( ABS(VVS) .LE. 0.0100) GO TO 90 

RSET 

120 

C 


RSET 

121 

C 

WRITE NORMAL PROFILE TO DISC 

RSET 

122 

C 


RSET 

123 


WRITE ( NT W ) S,VVS, VSP,VCI2 

RSET 

124 


KNTW l=KNT W 1 + 1 

RSET 

125 

90 

CONTINUE 

RSET 

126 


PWALL=PPS*PC(1) 

RSET 

127 


IF (S.LE.0.C001) GO TO 100 

RSET 

128 


CQP2=4.*RS*S IF*PWALL 

RSET 

129 


CDF2=2.*RS*CSF*CFCH 

RSET 

130 


C0PD=CDPD+(CDPl+C0P2)*DS/2. 

RSET 

131 


CCFD=CDFD+(C0Fl+CDF2)*DS/2. 

RSET 

132 


CDP=CDPD/(RS*RS) 

RSET 

133 


CDF=CDFD/( RS*RS) 

RSET 

134 

100 

IF (S.GE. 0.0001) GO TO 110 

RSET 

135 


HEAT0=HEAT 

RSET 

136 


P W ALO=P WAL L 

RSET 

137 


CDF=0 • 0 

RSET 

138 


CDP=2.0*PWALL 

RSET 

139 

no 

CDTOT=CDF+CDP 

RSET 

140 


CDP 1 =CDP2 

RSET 

141 


C DF1 = CDF2 

RSET 

142 


QDCT=HEAT*RI NF*U INF **3/778.00 

RSET 

143 


QQ0=HEAT/HEAT0 

RSET 

144 


PWRAT=PWALL/PWALO 

RSET 

145 


X N S 1 =XNS 

RSET 

146 


ULS1=UUS2 

RSET 

147 


VVS1=VVS2 

RSET 

148 


TT SI =TT S 2 

RSET 

149 


PP S 1 = PPS2 

RSET 

150 


PRS1=RPS2 

RSET 

151 


XSOL ( I )=S 

RSET 

152 


AVSLP=(OLDSLP*XNSP( I ) J/2.0 

RSET 

153 


SRN=S *BRAD 

RSET 

154 

c 


RSET 

155 

c 

PRINT SOLUTION DATA 

RSET 

156 

c 


RSET 

157 


WRITE (6,360) KTITLE 

RSET 

158 


WRITE (6,250) S, XB , R S , CNS , XN SP ( I ) , X SH , R SH , NI T E R , N I T TOT , NT OT , I ,K 

RSET 

159 


WRITE (8,240 XNSP( I) ,XNS,XSH,RSH 

PSET 

160 


TWALL=TW*TREF 

RSET 

161 


WRITE (6,260) DS ,CFCH , HEAT , STAN , CDF , CDP , CDTOT , PWALL , TWAL L , PWR AT 

RSET 

162 


WRITE (1,320) K, I, S, NITER, XNS, XNSP(I ) , CFCH , HEA T, STAN , PWR AT , QQO , SRNR SET 

163 


1 , QDOT 

RSET 

164 


IF (KPLTTP.NE.O) WRITE ( NTPL ) K , I , XS OL ( I ) , XB , R S , XSH f P SH , CN S , CF CH , 

SP S ET 

165 


IT AN , PWRAT 

RSET 

166 


WRITE (3,330) K, I , N I T E R , S , XNS , XNST MP , XNS I V 1, XNS A , EDMA X , XNE DM X, Y E DMRS ET 

167 


lAXfSfSRN 

RSET 

168 


WRITE (6,270) 

RSET 

169 


WRITE (6,280) OLDSLP , XNSPM ,XNSP ( I ) , ALP , PH I ,CK , CK2 

RSET 

170 


WRITE (6,290) UU S , V VS , T T S , RR$ , PPS , VPG 

RSET 

171 


USHSTR=UUS*UREF 

RSET 

172 
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VSHSTR=VVS*UREF 

RSET 

173 


T SHSTR=TTS*TREF 

RSET 

174 


TSHSTK^TSHSTR/ 1 • 80 

RSET 

175 


WRITE (6,300) USHSTR, VSHSTRt TSHSTR 

RSET 

176 


WRITE (6,310) TSHSTK 

RSET 

177 


IF ( ABS(1.00-S/SEN0).LE.SMALLT) GO TO 140 

RSET 

178 


IF (NSPRF.EQ.O) GO TO 130 

RSET 

179 


DO 120 NK=1 , NSPRF 

RSET 

180 


IF (S-EQ.O.OO) GO TO 140 

RSET 

181 


IF (SPRF(NK) .EQ.O.OO) GO TO 120 

RSET 

182 


IF ( ABS( 1 • 00— S/SPRF ( NK ) ) • LE* SMALLT ) GO TO 140 

RSET 

183 

120 

CONTINUE 

RSET 

184 

130 

CONTINUE 

RSET 

185 


IF ( ( I+4)/5*5.NE.( M-4) ) GO TO 170 

RSET 

186 

140 

CONTINUE 

RSET 

187 

C 


RSET 

188 

C 

PRINT PROFILES 

RSET 

189 

C 


RSET 

190 


WRITE (6,220) 

RSET 

191 


WRITE (6,230) ( N , XN ( N ) , UC ( N ) , VC ( N ) , TC ( N ) , RC ( N ) , PC ( N ) 

,PE(N),CC(N,1)RSET 

192 


1,CAEQ(N) ,XM(N),TA(N) , N = 1 * IE) 

RSET 

193 


IF (NS.EQ.2) GO TO 160 

RSET 

194 


WRITE (6,340) ( NSP I ( J ) , J= 1 ,NS ) 

RSET 

195 


DC 150 N = 1 , 1 E 

RSET 

196 


YORN=XN( N)*XNS 

RSET 

197 


YIN=YQRN*BRAD*12.00 

RSET 

198 


YC H = Y I N*2 • 540 

RSET 

199 


WRITE (6,350) N , YORN , ( CC ( N , J ) , J= 1 , NS ) , ED ( N ) , Y I N , YCM 

RSET 

200 

150 

CONTINUE 

RSET 

201 

160 

CONTINUE 

RSET 

202 

170 

CONTINUE 

RSET 

203 


RETURN 

RSET 

204 

C 


RSET 

205 

C 


RSET 

206 

C 


RSET 

207 


180 FORMAT ( 1 H 1 , //5X , 4HUI NF , 8 X ,4HP I NF , 10X , 4HT I NF , 1 OX , 5HC A I NF , 7X , 2HTB , 1 RSET 208 
11X,4HBRAD,9X,2HPR,9X,2HLE, 9X,3HYSH, 10X , 3HALT/ IX, E12.3, 2E 14. 5 , E 12 . 3RSET 209 
2,2E13.4,2EU.2,E13.4,E12.3) RSET 210 

190 FORMAT (1H0,A2,17H THIN SHOCK L AYER , 2X , A 2 , 10H WALL S L I P , 2X , A 2 , 1 1H RSET 211 
1SHCCK SLIP , 2X » A2 * 9H CAT WALL,15H NO STEPS IN Y=,I3,15H NO STEPS INRSET 212 
2 S= , I 3 » 13H S STEP SI7E=,F5.3) RSET 213 

200 FORMAT ( 1 HO , 3 1 HS 0 LUT I ON S TO BE OBTAINED AT S =,10F9.2) RSFT 214 

210 FORMAT ( 1H0, 3X , 5HT W/T S ,4X , 3HEP S, 6X ,6HREY I NF , 7X , 5HR EYSH , 8X ,4HTREF , 9RS ET 215 
IX ,4HUREF, 9X,4HRREF,9X,4HPREF,6X,4HITER/1X, F7 . 4 , F9 . 4, 6E 1 3 • 4 , 14) RSET 216 
220 FORMAT (1 HO , 2 X , 1 HN , 4X , 5HY / YSH , 6X, 5HU/U SH , 6 X , 5H V/ V SH , 6X , 5HT /T SH , 7X , RS ET 217 
15HR/RSH,5X f 11HP/PSH( APPR) , 3X , 5HP/ P SH , 7X , 2HC A , 1 OX , 4HC A E Q , 8 X , 3H XM,9RSET 218 
2X r 7H T DEG R) RSET 219 

230 FORMAT ( IX , I 3 * 2F 1 1 . 6 , F 12 . 6 , F 1 1 .6 , 6 F 1 2 . 6 f F 1 2 . 2 ) RSET 220 

240 FORMAT { 1H , 64X, 4F 15 . 10 ) RSET 221 

250 FORMAT ( 1 H 0 , 5 X , 1 HS , 1 1 X , 1 HX , 1 1 X , 1HR , 1 1 X , 3 HY SH , 9 X , 4HYSHP , 8X , 3HXSH , 9XRS ET 222 
It 3HPSH.5X, 7HN0 I T E R , 4 X , 6HN I TTO T , 4X ,4HNT0T , 3X , 1 H I , 5X, 1HK/ 7F 12 . 6 , I 6 , RS ET 223 
27X,I5»4X f I5*2XfI3|4X f II) RSET 224 

260 FORMAT ( 1H0 , 5X , 2 HDS , 10X , 2HCF , 1 OX, 4HH E AT , 8 X , 4H STAN , 8X , 3HC DF , 9 X , 3HC ORS ET 225 
1P,9X, 5HCDTOT.7X, 5HP WAL L , 7X , 5HT WAL L , 7 X , 5HP W/PO/ 10 F 1 2 - 6 ) RSET 226 

270 FORMAT ( 1 HO , 2X , 8 HYSHP ( S,2X,13HYSHP ( $ +D S/ 2 , 2X , 8HNE W YSHP,2X, 12 HR SET 227 
1 ALPH A ( S + OS /2 , IX, 10HPH I ( S + D S/ 2 , 3X , 7HK APPA ( S , 2X , 1 2HK APP A ( S + DS/ 2 ) RSET 228 


280 

FORMAT 

(1H , 7F 12 *6 ) 

RSET 

229 

290 

FORMAT 

( 1HO,8X,3HUSH,10X,3HV$H,10X,3HTSH, 10X,3HRSH, 10X,3HP$H 

, 10X,3RSET 

230 


1HVPG/3X 

, 6F 13* 6 ) 

RSET 

231 

300 

FORMAT 

( 3X , 3F 13# 2 ) 

RSET 

232 

310 

FORMAT 

( 3X,26X,F 13*2// ) 

RSET 

233 

320 

FORMAT 

( 2X, I 1,2X, I 3, F 12. 6, IX , I 4, 9F 12 . 6 ) 

RSET 

234 

330 

FORMAT 

(2X,I1,2X,I3,1X,I4,5F12.6, 1PE12 .4, 0PF12.6, 3F 12 . 6) 

RSET 

235 

340 

FORMAT 

( 1H0,4X, 1HN,4X,4HY/RN,6(9X, A4) , 10X , 5HE- /CC , 6X , 4HY IN, 

9X , 4HYRS ET 

236 


1 CM) 


RSET 

237 

350 

FORMAT 

(1H ,1X,I3,F13.5,7E13.5,2F12.5) 

RSET 

238 

360 

FORMAT 

(///5X,6H**** , 20A4 , 6H ****//) 

RSET 

239 


END 


RSET 

240 
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SUBROUTINE RTEOTA 


C 

C 

C 

C 

C 

C 


10 

c 

c 

c 


20 


30 

C 

c 

c 

40 


50 


60 

70 

C 

c 

c 

8U 

90 

100 

110 

120 


SUBROUTINE RTEOTA REAOS THE REACTION RATE DATA FROM UNIT IUN 
FOR DISSOCIATING OXYGEN AND MULTI-COMPONENT AIR 

SUBROUTINE RTEOTA IS CALLED BY MAIN. 


2 , NR6 ,NZ6 


2TPL » NTW 

DATA KTST/3HL0G/ 

NS2=2 

NS6=6 

DO 10 1=1,6 
DC 10 J = 1 » 5 
ZSUB2(J,I)=0. 

ZSUB6( J, I > =0 . 

CONTINUE 

READ (IUN, 80) (KRT I TL < I ) , I =1 , 1 8 ) 

DISSOCIATING CXYGEN 

READ (IUN, 90) NJ2,NR2,NZ2 

READ (IUN, ICO) (NAME2( I ) , I =1 ,N J2 ) 

DO 20 1*1, NR2 

READ (IUN, 110) (KRE02( I,J) , J = i , 6 ) , (RATE2( I ,K) ,K=1,6) 
IF (KTST. NE. KRTITL(l) ) GO TO 20 
R ATE2 ( I,1)=ALCG(RATE2( 1,1) ) 

RATE2(I,4)=AL0G(RATE2< 1,4) ) 

CCNTINUE 
NZ 2= NJ 2-N5 2 
IF (NZ2.LE.0) GO TO 40 
DO 30 1=1, NZ2 

READ (IUN, 120) ( ZSUB2 ( I , J ) , J=1 ,NS2 I 

MULTI-COMPONENT AIR 

READ (IUN, 90) NJ6,NR6,NZ6 

READ (IUN, 100) (NAM£6( I),I=1,NJ6) 

DC 50 1=1, NR6 

READ ( IUN, 11C ) ( KREQ6 ( I,J) , J=1 ,6 ) , (RATE6( I ,K) ,K=1,6) 
IF (KTST.NE.KRTITL( 1) ) GO TO 50 
RATE6( I,i)=ALCG( RATE6C 1,1) ) 

RATE6(I ,4)=ALCG(RATE6( 1,4) ) 

CCNTINUE 
NZ6=N J6-NS6 

IF (NZ6.LE.0) GO TO 70 
DC 6C 1=1 , NZ6 

READ (IUN, 120) ( ZSUB6 ( I , J ) ,J = 1 ,NS6 ) 

CCNTINUE 

RETURN 


FORMAT ( A3 , 1 7A4) 

FORMAT (313, 7LX) 

FORMAT ( 20 A4 ) 

FORMAT (6 ( IX , A4 ) ,2 ( E10 .0, F6. 0, F4 .0 ) , 10X ) 
FORMAT ( 6F 10 • 5 , 20X ) 

END 


RDTA 

1 

ROTA 

2 

RDTA 

3 

RDTA 

4 

RDTA 

5 

RDTA 

6 

RDTA 

7 

“ I RDTA 

8 

I6RDTA 

9 

RDTA 

10 

;drdta 

11 

i NRDTA 

12 

RDTA 

13 

RDTA 

14 

RDTA 

15 

RDTA 

16 

RDTA 

17 

RDTA 

18 

RDTA 

19 

RDTA 

20 

RDTA 

21 

RDTA 

22 

RDTA 

23 

RDTA 

24 

RDTA 

25 

RDTA 

26 

RDTA 

27 

RDTA 

28 

RDTA 

29 

RDTA 

30 

RDTA 

31 

RDTA 

32 

RDTA 

33 

RDTA 

34 

RDTA 

35 

RDTA 

36 

RDTA 

37 

RDTA 

38 

RDTA 

39 

RDTA 

40 

RDTA 

41 

RDTA 

42 

RDTA 

43 

RDTA 

44 

RDTA 

45 

RDTA 

46 

RDTA 

47 

RDTA 

48 

RDTA 

49 

RDTA 

50 

RDTA 

51 

RDTA 

52 

ROTA 

53 

RDTA 

54 

RDTA 

55 

RDTA 

56 

RDTA 

57 

RDTA 

58 

RDTA 

59 

RDTA 

60 

RDTA 

61 

RDTA 

62 

RDTA 

63 
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o o n o o o o 


SUBROUTINE SET 


SET 

1 



SET 

2 

SUBROUTINE SET INITIALIZES THE PROFILES 

FOR EACH GLOBAL ITERATION 

SET 

3 



SET 

4 

SUBROUTINE SET CALLS SUBROUTINE DERIV3. 

SET 

5 



SET 

6 

SUBROUTINE SET IS CALLED BY MAIN. 


SET 

7 



SET 

8 

COMMON /COMAR1/ AA ( 5 1 9 , BB ( 51 ) , C AE Q ( 5 l ) , 

CONI 51) ,C0H51 ) ,C02(51) .CPSSET 

9 

IT ( 51 )»EMBAR(51),PC(51), PCN ( 51 ) »PE ( 51 ) , PFAC (51) *P$( 51 ) , PO ( 5 1 ) , PON( 5SET 

10 

21) ,P1(51I .PIN (51) ,P2< 51) ,P2NI51) ,Q1<51) 

,02(51) ,RC(51 ) 9 RCON ( 5 1 9 ,RCSSET 

11 

3FC51 ) ,RNSH(51),RVISC(51),R1(51 ),R2(5l) r 

TC( 51 9 v T1 ( 51) ,T2( 51),T20( 51SET 

12 

4),T21(51),UC(51),UCNI51),UC1(51),U1(51) 

9 U2 ( 51 ) , U20( 51 ) 9 VC ( 51 ) , VCD (SET 

13 

551 ) « VC1 1 ( 5 1 ) » VCI 21 51 ) * VG( 5 1 9 « VGN( 5 1 1 • VGS (51)fVISC(51)fVS(51) v VO (51 SET 

14 

6)9 VON (51) v VX < 5 1 1 ,V2(51),V2N(51 ) 


SET 

15 

COMMON /COMDBL/ AJB ( 51 , 6 9 , A JM( 5 1 , 6 ) , CC < 5 1 , 69 ,CCL(51,6) ,CCN(51,6), 

CSET 

16 

1PH51, 6) , Cl (51,6 ),C2( 51,6) ,C20(51* 6 ) ,DW( 51 , 6 ) f HI ( 51,6) , HO (51,6 9, W1SET 

17 

2(51,6) 


SET 

18 

COMMON /COMEDG/ CIE( 6 ),TCIE 


SET 

19 

CCMHCN /COHFSA/ C INF ( 6 ) , CP IFSC 6 ) , DEL HIFI 6 ) , HI NFt 6 > 

SET 

20 

COMMON /COMG/ CA T , CNS , CRN I , REF AC , S SF AC , 

SWF AC, THIN, VP G, I, K, NITER 

SET 

21 

COMMON /COMG2/ CK , CK2 , C SF 2 ,R S2 , S I F 2 , XB 2 

, XNSPM 

SET 

22 

COMMON /COMNS/ NS 


SET 

23 

CCMMON /COMSO/ P P SO , TT SO , V VSO , UUS 0 , N SOLD 

SET 

24 

CCMMCN / COMW/ Cl W ( 6) , C IWW ( 6 ) ,CP IW ( 6 9 , H IW ( 6 ) ,HTFLB , TB , TCNW,TW 

SET 

25 

CCMMON / SOLV/ A1 ( 5 1 ) , A2 ( 5 1 ) , A3 ( 5 1 ) , A4 ( 5 I ) , DN < 5 2 ) , D S , XN ( 52 ) , I E , I M 

SET 

26 



SET 

27 

DC 20 N = 1 , IE 


SET 

28 

RNSH (N)=CNS/ ( l.+CK*CNS*XN( N) ) 


SET 

29 

RCSF (N)=CNS/(1.+CK*CNS*XN(N) ) 


SET 

30 

U I ( N ) =XN ( N ) 


SET 

31 

IF (K.GT.l) U 1 ( N ) = U20 ( N ) 


SET 

32 

U2 ( N ) =U 1 ( N ) 


SET 

33 

UC (N ) =U1 ( N 9 


SET 

34 

UC 1 ( N ) =U2 ( N9 


SET 

35 

V 1 ( N 9 = XN ( N 9 


SET 

36 

IF (THIN. LE. 0.0) V1(N)=V0(N) 


SET 

37 

V2 ( N 9 = VI ( N 9 


SET 

38 

VC (N9-VKN) 


SET 

39 

IF (THIN. GT. 0.00. AND. K.EQ.l) V0(N)=0-00 


SET 

40 

VCD( N)=VC( N ) * V VSO 


SET 

41 

T 1 f N 1 = 1 . 0 - ( 1 .O-XNtN) )*( l.O-TW/TTSO) 


SET 

42 

IF (K.GT.l) T 1 ( N 9 = T20 ( N 9 


SET 

43 

T2 ( N ) = T 1 ( N 9 


SET 

44 

TC(N)=T1(N) 


SET 

45 

T21 ( N)=T2 ( N9 


SET 

46 

P1(N)=1.0 


SET 

47 

P2 (N 9 =1 .0 


SET 

48 

PC ( N ) = 1 • 0 


SET 

49 

PE(N)=1.0 


SET 

50 

P S ( N 9 =0 • 0 


SET 

51 

PO ( N ) = 1 • 0 


SET 

52 

PON ( N )=0. 0 


SET 

53 

R1(N)=P1(N)/T1(N) 


SET 

54 

R2 (N 9 = R 1 ( N ) 


SET 

55 

RC(N)=R1(N) 


SET 

56 

CAEQ(N9=0.0 


SET 

57 

CPST (N)= 1 • 0 


SET 

58 

PFAC(N)=1.0 


SET 

59 

PCN ( N 9 = 0 .0 


SET 

60 

P1N(N9=0.0 


SET 

61 

P2N ( N ) =0 • 0 


SET 

62 

DO 10 J = 1 , NS 


SET 

63 

C 1 (N » J )=CI NF ( J 9 


SET 

64 

IF (NS.EQ.NSOLD) C 1 ( N , J ) = C 20 ( N , J ) 


SET 

65 

C2(N,J)*C1(N, J) 


SET 

66 

CC (N , J )=C 1 ( N f J ) 


SET 

67 

CCL(N f J9=CC(N,J9 


SET 

68 

CONTINUE 


SET 

69 

CONTINUE 


SET 

70 
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30 


DC 30 J = 1 1 N$ 

SET 

71 

CIM J)=CC( 1, J ) 

SET 

72 

C I E ( J ) = CC ( IE,J) 

SET 

73 

CALL OERIV3 <UC, XN f I E , 1 t UCNI 

SET 

74 

00 60 J = 1 * NS 

SET 

75 

00 40 N=l, IE 

SET 

76 

01(N)=C1(N, J) 

SET 

77 

CALL DERIV3 ( Q1 , XN , I E , 1 , 02 ) 

SET 

78 

DO 50 N=1 t IE 

SET 

79 

CCN ( N , J ) = Q2 ( N ) 

SET 

80 

CONTINUE 

SET 

81 

CONTINUE 

SET 

82 

RETURN 

SET 

83 

END 

SET 

84 



SUBROUTINE SET2 


SET2 

1 

C 



SET2 

2 

C 

SUBROUTINE SET2 SETS THE FREESTREAH AND WALL SPECIES CONCENTRA- SET2 

3 

C 

TIONS AND SETS THE STOICHIOMETRIC 

COEFFICIENT ARRAYS SET2 

4 

C 



SET2 

5 

C 

SUBROUTINE SET2 IS CALLED BY MAIN 

• 

SET2 

6 

c 



SET2 

7 


DIMENSION I N AME ( 20 ) » IREACT(20,6> 


SET2 

8 


COMMON /COMA BZ/ ALPHS B (1 5 , 1 1 ) , BET ASB ( 1 5, 1 1 ) 

,ZSUB( 5,6) , ALSUBC 15),BESET2 

9 


1 T SUB (151 fGAMMMK 15 f 6) fGAMMPL(15,6) 

SET2 

10 


CGMMGN /COMBC/ C A I NF , C A W , C I NF6 ( 6 ) 

, Cl WW6( 6 ) 

SET2 

11 


COMMON /COMFSA/ C I NF i 6 ) f CP I FS ( 6 ) , 

DELHIF(6) f 

HINFI6) SET2 

12 


CCMMCN /COMNS/ NS 


SET2 

13 


COMMON /C0MNS2/ N J , NR , NSM 1 f NZ 


SET2 

14 


COMMON /COMSET/ R AT E2 ( 15,6),RATE6( 15 , 6 ) , Z SUB 2 < 5 , 6 ) , Z SU B6 { 5 , 6 ) , KR T I SE T2 

15 


1TL(18),KREQ2< 15,6),NAME2< 11) ,NJ2, 

NR2 , NZ2 , K RE 06 ( I 5 , 6 ) , N AM E6 { 1 1 ) , N J 6SE T2 

16 


2? N'R6 ? NZ6 


SET2 

17 


CCMMCN / CO MW/ C I W { 6 ) , C I WW { 6 ) , C P I W ( 6 ) , H I W ( 6 ) 

,HTFLB,T9,TCNW,TW SET2 

18 


COMMON /RTECON/ C RO ( 1 5 ) , C R 1(15 ) , CR2 ( 1 5 ) , DROU 5 ) f DR1 ( 1 5 ) , DP 2( 1 5 ) SET2 

19 


CATA IBLANK/4H / 


SET2 

20 


DO 10 1=1,20 


SET2 

21 


I NAME ( I) = I BLANK 


SET2 

22 


DO 10 J = 1 , 6 


SET2 

23 


I R E ACT ( I , J ) = I BLANK 


SET2 

24 

LO 

CONTINUE 


SET2 

25 


DO 20 J=l, 11 


SET2 

26 


DO 20 KR = 1 ,15 


S6T2 

27 


ALPHSBIKR, J)=0.0 


SET2 

28 


BETASBIKRt J) = 0.0 


SET2 

29 

23 

CONTINUE 


SET2 

30 


DC 30 N = 1 » 6 


SET2 

31 


DO 30 J= 1 , 5 


SET2 

32 


ZSUB( J,N)=0.0 


SET2 

33 

30 

CCNTINUE 


SET2 

34 


IF (NS.NE.2) GO TO 70 


SET2 

35 

C 



SET2 

36 

C 

DISSOCIATING OXYGEN 


SET2 

37 

C 



SET2 

38 


N J=N J2 


SET2 

39 


NR=NR 2 


SET2 

40 


N Z=N J-NS 


SE T2 

41 


CINF (1 )=CAINF 


SET2 

42 


CINFC2)=1«00— CAINF 


SET2 

43 


C I WW ( 1 ) = CAW 


SET2 

44 


CIWW(2)=1 .OO-CAW 


SET2 

45 


DO 40 1=1, NJ 


SET2 

46 

40 

I NAME ( I ) =N AME2 ( I ) 


SE T2 

47 
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00 50 1=1, NR 

SET2 

48 


CR0U)=RATE2(I,1) 

SET2 

49 


CR1 ( I ) = RAT E2 ( 1,2) 

SET2 

50 


CR2 ( I ) =R AT E2 ( 1,3) 

SET2 

51 


DR0< I ) =R ATE2 ( 1,4) 

SET2 

52 


DR1< I ) =RAT E2 ( I ,5 ) 

SET2 

53 


DR2( I )=RATE2 ( I ,6) 

SET2 

54 


DO' 50 J = 1 , 6 

SET2 

55 

50 

IREACK I , J ) = KREQ2 ( I , J ) 

SET2 

56 


NN2=N J— NZ 

SET2 

57 


IF (NZ.LE.O) GO TO 110 

SET2 

58 


IF (NN2.LE.0) GO TO 110 

SET2 

59 


DO 60 1=1, NZ 

SET2 

60 


DO 60 J=1 , NN2 

SET2 

61 

60 

ZSUB ( I , J ) =ZSUB2C I , J) 

SET2 

62 


GO TO 110 

SET2 

63 

70 

CCNTINUE 

SET2 

64 

C 


SET2 

65 

c 

MULTI-COMPONENT AIR 

SET2 

66 

c 


SET2 

67 


NJ=NJ6 

SET2 

68 


NR=NR 6 

SET2 

69 


NZ=N J-NS 

SET2 

70 


DO 80 I = 1 , N J 

SET2 

71 

80 

I NAME ( N = NAME6< I ) 

SET2 

72 


DO 90 1=1, NR 

SET2 

73 


CRO< I)=RATE6< 1,1) 

SET2 

74 


CR1( I )=RATE6( 1,2) 

SET2 

75 


C R 2 ( I)=RATE6( 1,3) 

SET2 

76 


DRO ( I) = RATE6( 1,4) 

SET2 

77 


DR1( I )=RATE6( I ,5) 

SET2 

78 


DR 2 ( I ) =R AT E6 ( 1,6) 

SET2 

79 


DO 90 J= 1,6 

SET2 

80 


CINF< J)=CINF6( J) 

SET2 

81 


C I hW ( J ) =C I 1*W6 ( J ) 

SET2 

82 

90 

IREACT(I,J) = KRE06U,J) 

SET2 

83 


NN2=N J— NZ 

SET2 

84 


IF (NZ.LE.O) GO TO 110 

SET2 

85 


DO 100 1=1, NZ 

SET2 

86 


DO 100 J= 1 , N N2 

SET2 

87 

100 

ZSUB( I ,J ) = ZSUB6( I,Ji 

SET2 

88 

110 

CCNTINUE 

SET2 

89 

C 


SET2 

90 

C 

STOICHIOMETRIC COEFFICIENT ARRAYS 

SET2 

91 

C 


SET2 

92 


DO 130 1 = 1, NR 

SET2 

93 


DO 130 K= 1 , N J 

SET2 

94 


DC 130 J= 1,3 

SET2 

95 


IF ( INAME(K).NE.IREACT(I,JJ) GC TO 120 

SET2 

96 


ALPHSBt I , K ) = A LPHSB ( I,K) + 1.0 

SET2 

97 

120 

IF ( I NAME (K) ■ NE. I REACT ( I , J+3 ) ) GO TO 130 

SET2 

98 


BETASB( I,K)=BETASB( I,K)+1.0 

SET2 

99 

130 

CCNTINUE 

SET2 

100 


DO 150 KR= 1 , NR 

SET2 

101 


ALSUB(KR)=0.00 

SET2 

102 


BETSUB(KR)=0.00 

SET2 

103 


DO 140 J= 1 , N J 

SET2 

104 


ALSUB(KR) =ALSUB( KR 1 +AL PHS B (K R , J) 

SET2 

105 

140 

BETSU8 ( K R ) =BE TSU8 ( KR ) +BET A SB < KR , J > 

SET2 

106 


ALSUB(KR)=ALSUB(KR )-1.00 

SET2 

107 

150 

BETSUB(KR)=BETSUB(KR )-1.00 

SET2 

108 


DC 200 KR= 1 , NR 

SET2 

109 


DO 190 J = 1 , N S 

SET2 

110 


IF (BETASB(KR, J ) -A LPH S B ( K R , J ) ) 160,170,180 

SET2 

ill 

160 

GAMMPKKR, J ) = 0 .00 

SET2 

112 


GAMMMI (KR, J ) =- ( BETASB(KR, J )-ALPHSB (KR, J) ) 

SET2 

113 


GO TO 190 

SET2 

114 

170 

GAMMPL(KR,J)=0.00 

SET2 

115 


GAMMMI (KR,J)=0.00 

SET2 

116 


GO TO 190 

SET2 

117 

180 

GAMMPUKR, J)=BETASB(KR, J)- ALPHSBt KR, J) 

SET2 

118 


159 


190 

200 

C 

C 

C 


GAMMMHKRt J)=0-00 

CONTINUE 

CCNTINUE 

PRINT REACTION RATE OATA AND ARRAYS 

WRITE (6,280) < KRT ITL ( I ) , I =1 , 18 ) 
WRITE (6,290) 

00 210 1=1, NR 
EXPCRO=EXP(CRO(I ) ) 

£XPDR0=6XP ( DRO ( I ) ) 


SET2 119 
SET2 120 
SET2 121 
SET2 122 
SET2 123 
SET2 124 
SET2 125 
SET2 126 
SET2 127 
SET2 128 
SET2 129 

210 WRITE (6,300) I , ( I RE ACT( I , J ) , J = l, 6 > , CR 0< I) , EXPCRO, CR 1 ( I) ,CR2 ( I) , DR$E T2 130 



LO ( n ,EXP0B0.0R1( I ) t DR2 ( I ) 

SET2 

131 

c 



SET2 

132 

C 

ALPHSBC NR , NJ ) 

AND BETASB(NR»NJ) 

SET2 

133 

c 



SET2 

134 


WRITE (6,310) 

NR t NJ , ( I NAME (I ) , 1 = 1 , NJ ) 

St T2 

135 


DC 220 1=1, NR 


SET2 

136 

220 

WRITE (6,320) 

It ALSU0M ), I ,( ALPHSBU ,J) , J=l,NJ) 

SET2 

137 


WRITE (6,330) 

NR , N J , ( INAME (I ),I=1,NJ) 

S6T2 

138 


00 230 1=1, NR 


SET2 

139 

230 

WRITE (6,320) 

I, BETSU6( I ) , I , ( BETA SB( I , J) ,J = 1,NJ) 

SET2 

140 


IF (NZ.LE.O) GO TO 250 

SET2 

141 

C 



SET2 

142 

C 

ZSUB (NZ , NS ) 


SET2 

143 

C 



SET2 

144 


WRITE (6,340) 

NZ , NN2 , ( I NAME ( I ) ,I = l,NN2l 

SET2 

145 


DO 240 1=1 , NZ 


SET2 

146 


NN1=NN2+I 


SET2 

147 

240 

WRITE (6,350) 

INAME ( NN 1), (ZSUB ( I,J) ,J=1,NN2I 

SET2 

148 

250 

CCNTINUE 


SET2 

149 

C 



SET2 

150 

C 

G AMMPl ( NR , NS ) 

AND GAMMMI (NR, NS ) 

SET2 

151 

C 



SET2 

152 


WRITE (6,360) 

NR, NS 

SET2 

153 


DO 260 I =1 ,NR 


SET2 

154 

260 

WRITE (6,370) 

I , ( GAMMPL ( I , J ) » J=1 , NS) 

SET2 

155 


WRITF (6,380) 

NR, NS 

SET2 

156 


DC 270 1=1, NR 


SET2 

157 

270 

WRITE (6,370) 

I , ( GAMMMI ( I , J) , J = I * NS) 

SET2 

158 


RETURN 


SET2 

159 

C 



SET2 

160 

C 



SET2 

161 

C 



SET2 

162 

280 

FORMAT ( / / 1H0 , 

A3 , 17A4 ) 

SET2 

163 

290 

FORMAT ( 4H0NR 

, 13X,8HR FACT ION, 17X,3HCR 0,8 X,8HEXP(CR0) , 

8X,3HCR1,8X,S6T2 

164 


13HCR2»7X, 3HDRC 

! ,8X, SHEXP(DRO) , 1 OX , 3HDR 1 ,6X , 3HDR2) 

SET2 

165 


300 FORMAT (1H , 1 2 ,2 X , 3 f 1 X , A4 ) ,1H= ,3 ( A4 , 1 X ) , 2 ( 2X , F 12 . 7 , IX , E 1 1 . 4, 3X , 2 ( 1SE T2 
IX, F8. 11, IX)) SET2 

310 FORMAT ( 1HC , 1 8X, 7HALPHSB ( , 12 , 1H, , l 2 , 1H ) , / , 3H NR,3X , 5HAL SUB , 7X , 2HNRSE T2 
l»4X«20f 2X* A4) ) SET2 

320 FORMAT ( IH , I 2 , IX, F6. 1 ,8X , 12 ,2X, 20 ( 2X, F4. C ) ) SET2 

330 FORMAT ( 1H0 , 18X, 7HBET A$B< , 12 , 1H, , I 2, 1HI , / , 3H NR, 2X , 6HBETSUB , 6X , 2HNSE T2 
1R,4X,20(2X,A4) ) SET2 

340 FORMAT ( 19H0 ZSUBC , I 2 , 1H , , 1 2, 1H) , / , 1H0, 6X , 2G ( 2 X, A4) ) S£T2 

350 FORMAT ( IH , A4 ,20( 2X ,F4 *1 ) ) 

360 FGRMAT (ilHO GAMMPL ( , 12 , IH , , 12, IH) ) 

370 FORMAT (IH , 1 2, 1 5( 2X, F4.0) ) 

380 FORMAT (11H0 GAMMM I ( , I 2 , IH , , 12 , IH ) ) 


END 


SET2 

SET2 

SET2 

SET2 

SET2 


166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 


160 



o o o o o n o 


SUBROUTINE SHVALS ( SP , CP , SPB ,C PB , TTSH, VR SH ,URSH, PPSH , 1 0 ) 

SH VL 

I 



SH VL 

2 

SUBROUTINE SHVALS CALCULATES THE PROPERTIES 

BEHIND THE SHOCK 

SH VL 

3 



SH VL 

4 

SUBROUTINE SHVALS CALLS SUBROUTINES HCP, AND 

VISCON- 

SHVL 

5 



SH VL 

6 

SUBROUTINE SHVALS IS CALLED BY MAIN AND SUBROUTINE NMOMNT . 

SHVL 

7 



SHVL 

8 

COMMON /COMECG/ CIE(6),TCIE 


SHVL 

9 

CCPMGN /COMFS/ P I NF, R EY IN , RINF , T INF, U INF 


SHVL 

10 

COMMON /CCMFSA/ C I NF ( 6 ) ,CP IFS f 6 > , DELHI F ( 6 ) , H I NF ( 6 ) 

SHVL 

11 

CCMMCN /COMNS/ NS 


SHVL 

12 

COMMON /COMREF/ CCNREF tCPREF , HREF , PREF, RREF, 

TREF,UREF, VSREF, WREF 

SHVL 

13 

COMMON /COMVS/ E MI (6) , VS A ( 6) » V SB { 6 ) ♦ VSC( 6 ) *R 

,NSPI (6) 

SHVL 

14 

COMMON / I NSH/ CONO , S , UPSH , XNS , EPS , TPSH , V I SCO 


SHVL 

15 

COMMON /OUTSH/ PPS , PPS1 , PP S2 ,PSP, REYSH , RRS , RR$ 1 , RRS2 , RSP , TSP , TTS , 

T SHVL 

16 

lTSl,TTS2,USP,UUS,UUSl,UUS2,VSPfVVStVVSl, VVS2 


SHVL 

17 

CGMMCN / SOLV/ A1<51),A2(51»,A3<51),A4(51),0N(52),DS,XN(52),IE,IM 

SHVL 

18 



SHVL 

19 

DIMENSION HI I ( 6 ) ♦ HFAC(6), CPI I ( 6) 


SHVL 

20 



SHVL 

21 

CALL HCP ( TCIEtCPI I ,HI I , HFAC ) 


SHVL 

22 

CALL VISCON (CIE»CPl I , VST I E , CST I E , TC I E ) 


SHVL 

23 

VISCO=VSTIE/VSREF 


SHVL 

24 

CCNO=C STI E /CON REF 


SHVL 

25 

TTS2TR=TTS2*TREF 


SHVL 

26 

CALL HCP <TTS2TR,CPI I,HII,HFAC) 


SHVL 

27 

SUM 1=0 • 0 


SHVL 

28 

SUMCDH=0 • 0 


SHVL 

29 

SUMCHF =0*0 


SHVL 

30 

DO 10 J= 1 , NS 


SHVL 

31 

SUM1=SUM1+CIE(J)/EMI ( J ) 


SHVL 

32 

SUMCDH=SUMCDH+CINF< J)*(HINF( JJ-DELHIFI J) )/HREF 

SHVL 

33 

SUMCHF= SUMCHF +CINF(J ) *HFAC ( J )/CPREF 


SHVL 

34 

CONTINUE 


SHVL 

35 

EMBARE=1.0/SUM1 


SHVL 

36 

RMCP=R/ ( EMBARE*CPREF ) 


SHVL 

37 



SHVL 

38 

URSH=CP/C 1 .00 + EPS**2*VISCO*UPSH/(XNS*SP> ) 


SHVL 

39 

TTSH=( (0-50*(URSH-CP )**2+0-50*(S P**2-VRSH**2 ) + SUMC DH ) ) / ( SUMCHF + EPSSH VL 

40 

1*»2*C0N0*TPSH/(XNS*SPI ) 


SHVL 

41 

PPSH=PINF/ (R INF*UINF**2)+SP*(VRSH*SP) 


SHVL 

42 

RRSH=PPSH/(TTSH*RMCP) 


SHVL 

43 

VR SH=— SP/RRSH 


SHVL 

44 

GO TO (40,20) , ID 


SHVL 

45 

CONTINUE 


SHVL 

46 

TT S2= TTSH 


SHVL 

47 

PPS2=PPSH 


SHVL 

48 

RRS2=RRSH 


SHVL 

49 

UUS2=URSH*$PB+VRSH*CPB 


SHVL 

50 

VV$2=HJRSH*CPB+VRSH*SPB 


SHVL 

51 

IF ( S-GE--0001 ) GO TO 30 


SHVL 

52 

UUS 1=—UU$2 


SHVL 

53 

VVS1=VVS2 


SHVL 

54 

TTS1=TTS2 


SHVL 

55 

PPS1=PPS2 


SHVL 

56 

RRS 1=RRS2 


SHVL 

57 

CGNTINUE 


SHVL 

58 

UUS= ( UUS 1+UUS2J/2-00 


SHVL 

59 

VVS=(VVSl+VVS2)/2.00 


SHVL 

60 

TTS=(TT$l+TTS2)/2-00 


SHVL 

61 

PPS= (PPSI+PPS2)/2.00 


SHVL 

62 

RRS= ( RRS1 +RRS2 )/2 -00 


SHVL 

63 

U SP= ( UUS2— UU S 1 ) / DS 


SHVL 

64 

VSP=(VVS2-VVS1)/DS 


SHVL 

65 

TSP=<TTS2-TTS1)/DS 


SHVL 

66 

PSP= (PPS2-PPSD/DS 


SHVL 

67 

RSP=(RRS2— RRS1 )/DS 


SHVL 

68 

CONTINUE 


SHVL 

69 

RETURN 


SHVL 

70 

END 


SHVL 

71 
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c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


10 

c 

c 

c 


c 

c 


20 


30 


40 

50 

60 

70 


SUBROUTINE SMCMNT 


SUBROUTINE SMOMNT SOLVES THE S MOMENTUM EQUATION 
SUBROUTINE SMOMNT CALLS SUBROUTINES DERIV3, AND SOLVE. 
SUBROUTINE SMCMNT IS CALLED BY MAIN. 


SMNT 
SMNT 
SMNT 
SMNT 
SMNT 
SMNT 
SMNT 
SMNT 

COMMON /BODY/ HANGL E , X JF AC , I GE CM , J FAC SMNT 

COMMON /COMARL/ XNSP( 202 ) , XSOL ( 200 ) SMNT 

COMMON /COMAR 1/ A A ( 5 1 ) , BB ( 5 1 ) , C AEQ < 5 1 J ,C0N(51) ,C01 ( 51 ) ,C02 ( 5 1 ) ,CPSSMNT 
IT (51 ) ,EMBAR(51), PCI 51) , PCN ( 5 1 ) , PE < 5 l > , PFAC ( 5 1 ) , PS ( 51),P0<51) ,P0N(5SMNT 
2n,PH51),PlM51),P2<51),P2N<51),Gl(51|,Q2(51),PC(51),RCON<51),RCSSMNT 
3F(51>,RNSH(51),RVISC(51),Rl(51),R2(51),TC<51),TL(5l),T2(51),T20<51$MNT 
4),T21(51),UC<51) tUCN(51)fUCl(51),Ul( 51 ) , U2 ( 5 1 ) , U20( 51 ) , VC( 51 )tVCD(SMNT 
5511, VCIU 51) ,VCI2(51) , VG(51) ,VGN(51) ,VGS(51) »VISC(5i) • VS (51) ,V0(5 1SMNT 
6) , VON (51), VI (51) ,V2(51),V2N(51) SMNT 

COMMON /CO MF AC / CCFAC,UFAC SMNT 

COMMON /COMG/ CA T , CN S , CRN I , R EF AC , S SF AC , S W F AC , T H I N , VPG , I , K, N I TER SMNT 
CCMMCN /COMG 1 / CP , CPB , SP , SPB SMNT 

COMMON /C0MG2 / CK , CK2 , CSF2 ,RS2 ,S I F2 , XB2 , XN SPM SMNT 

COMMON /COMTST/ D I F I ( 8 ) , 0 I F , XU25 SMNT 

COMMON /COMUV/ URSH,VRSH SMNT 

COMMON / 1 N SH/ CONO , S , UPSH , XNS , EPS , TP SH f V I SCO SMNT 

CCMMCN /OUTSH/ P PS ,P PS 1 , PPS2 , p SP , REYSH , RRS ,RRS 1 , RRS2 , R SP , TSP ,TTS,TSMNT 
1 TS 1 ♦ TTS2 , U SP ,UUS,UUS1,UUS2,VSP,VVS,VVS1, VVS2 SMNT 

CCMMCN /SOLV/ A1 ( 5 1) , A2 ( 51 ) , A3 ( 51 ) ,A4( 51 1 , ON ( 52 I , DS, XN ( 52 l , I E , IM SMNT 

SMNT 
SMNT 
SMNT 
SMNT 
SMNT 
SMNT 
SMNT 

A 1 (N)=REFAC*(UUS*XNSP( I > *RNS F ( N ) *RC ( N ) *UC ( N ) *XN( N ) / ( VV S*CNS ) -RC ( N ) SMNT 
1*VC(N) ) /V I SC ( N ) +RV I SC ( N ) +C K*RN SH ( N ) + RCSF ( N )* XJFAC SMNT 

A2(N )=-REFAC*(USP*RNSH(N)*RC(N )*UC(N ) / VV S +CK*RNSH ( N ) *RC ( N ) * VC ( N) )/SMNT 
1VISC(N)-CK*RNSH(N)*RVISC(N)-(CK*RNSH<N)+RCSF(N)*XJFAC)*CK*RNSH(N) SMNT 


DIMENSION Ull(51) 


DO 10 N= 1 , IE 


CALCULATE COEFFICIENTS FOR PARTIAL DIFFERENTIAL EQUATION 


A3(N)=-REFAC*PPS*RNSH(N)*PFAC(N)/(VI SC ( N ) *RR S* V VS ) 

A4(N )=— REFAC*UUS*RNSH( N)*RC(N)*UC( N ) / ( V I SC ( N ) * VVS ) 

CALCULATE SLIP VARIABLES 

C S 1= SP*SPB*UUS2*XNS/( E P S* E PS* V I SC 0*URS H) - CK2* X NS / ( l.+CK2*XNS ) 
C S2=- SP*XN S* ( C P+V VS2* C PB) / (EPS* EPS* V ISCO*URSH) 

E l-=0. 0 
F 1=0 .0 

CALL SOLVE ( U 1 , U 2 , E 1 , F 1 , C RN I , 1 . 00 , C S 1 , CS2 , SSF AC ) 

UL S2G=UUS 2 
SMALL=1 • OE— 6 
DC 20 N=2, IE 

IF (U2(N) .Lfc.O.OJ U2(N)=SMALL 
IF (U2(N) .GT.1.15) U2 ( N ) = 1 • 1 5 
CONTINUE 

CALL DERIV3 ( U2 , XN , I E , 1 , 01 ) 

U2NI E=0 1 ( IE) 

IF ( SSFAC ) 60,60,30 

UP$H : =U2NI E~CK2*XNS*U2( IE) / (l.+CK2*XNS) 

UUS 2 = U2 ( IE )*UUS2G 
IF (S.GE. 0.0001) GO TO 40 
UUS 1=— UU S 2 
UUS=(UUS2+UUS1 )/2.0 
DO 50 N= 1 , IE 
U2(N)=U2(N)*UUS2G/UUS2 
GO TO 70 
UP SH = 0 • 

CONTINUE 
DC 110 N = 1 , I E 


SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 

SMNT 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 
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til 1 ( N ) =U1 ( N) 

SMNT 

71 


IF (S.GE. 0.0001) GO TO 90 

SMNT 

72 


IF (NITER. GT. 201 GO TO 80 

SMNT 

73 


U 1 ( N ) =1)2 ( N ) 

SMNT 

74 


GO TO 90 

SMNT 

75 

80 

CONTINUE 

SMNT 

76 


U1(N)=UFAC*U1(N)M 1.0-UFACJ*U2<N) 

SMNT 

77 

90 

UC(N)=(U1(N)+U2(N) >/2. 

SMNT 

78 


IF (UCl(N) .EQ.O.O) GO TO 100 

SMNT 

79 

C 


SMNT 

80 

c 

CALCULATES PROFILE DIFFERENCE 

SMNT 

81 

c 


SMNT 

82 


DIFF=ABS( 1.0-U2(N)/UC1(N) ) 

SMNT 

83 


IF (OIFF.GT.DIF) OIF=DIFF 

SMNT 

84 

100 

CONTINUE 

SMNT 

85 


UC 1 ( N ) =U2 ( N ) 

SMNT 

86 

110 

CONTINUE 

SMNT 

87 


CALL DERIV3 ( UC, XN , I E * 1 , UCN) 

SMNT 

88 


RETURN 

SMNT 

89 


END 

SMNT 

90 



SUBROUTINE SMOOTH < ZD , Z , R , NPT S * RF , RP ,NU, R PP ) 


SMOO 

l 

C 




SMOO 

2 

C 

SMOOTHES DATA OVER 2*NU POINTS USING A 


SMOO 

3 

c 

WALKING LEAST-SQUARES CURVE 

FIT FOR R = A*Z**B 


SMOO 

4 

C' 




SMOO 

5 

C 

RETURNS RF, RP AND RPP FROM 

ARRAY R 


SMOO 

6 

c 

CORRESPONDING TO ZO IN ARRAY 

Z 


SMOO 

7 

C 




SMOO 

8 

c 

NPTS=NUMBER OF POINTS IN ARRAYS Z AND R 


SMOO 

9 

c 




SMOO 

10 

c 

SUBROUTINE SMOOTH IS CALLED 

BY SUBROUTINES GEOM, AND 

INTRPS. 

SMOO 

11 

c 




SMOO 

12 


DIMENSION A ( 10) 



SMOO 

13 


DIMENSION Z(NPTS), R(NPTS) 



SMOO 

14 

c 




SMOO 

15 

c 




SMOO 

16 

10 

CONTINUE 



SMOO 

17 


NP=NPTS 



SMOO 

18 


N5=NP-NU 



SMOO 

19 


DO 20 I = NU , N S 



SMOO 

20 


IF (ZD.GE.(Z( I )-1.0E-6).AND. 

ZD.LE. <Z( I+D + l.OE-6) ) GO 

TO 30 

SMOO 

21 

c 




SMOO 

22 

c 

ASSUMES THAT ZII) .LT. Z(I+1) 


SMOO 

23 

c 




SMOO 

24 

20 

CONTINUE 



SMOG 

25 


NU=NU- 1 



SMOO 

26 


IF (NU.GE.l) GO TO 10 



SMOO 

27 


STOP 



SMOO 

28 

30 

JF = I-NU+1 



SMOO 

29 


JL= I +NU 



SMOO 

30 


A ( 1 ) = JL— JF + 1 



SMOO 

31 


DO 40 1=2,10 



SMOO 

32 

40 

A ( I ) =0 .0 



SMOO 

33 


DO 50 I = J F , J L 



SMOO 

34 


A ( 2 ) = ALOG ( R ( I ) ) 



SMOO 

35 


A ( 3 ) = A ( 3 ) + A ( 2 ) 



SMOO 

36 


A ( 4 ) =ALOG ( Z ( I ) ) 



SMOO 

37 


A ( 5 ) = A ( 5 ) + A ( 4 ) 



SMOO 

38 


A(6)=A<6)+A(4)*A<4) 



SMOO 

39 

50 

A(7)=A<7)+A(4)*A<2) 



SMOO 

40 


A<8)=A(5)*A<5)-A(1)*A(6> 



SMOO 

41 


A (9 ) =A ( 5 ) *A( 3)-A(l)*A(7) 



SMOO 

42 


A( 10) = A(5)*A(7)-A(3)*A(6) 



SMOO 

43 


QB=A(9)/A( 8) 



SMOO 

44 


AA=EXP(A( 1 0 ) /A ( 8 ) ) 



SMOO 

45 


RF=AA*ZD**BB 



SMOO 

46 
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RP=AA*BB*7D**(BB-i.O) 

SMOG 

47 

RPP=AA*BB*(BB-1.0)*ZD**(BB-2.0> 

SMOG 

48 

RETURN 

Smog 

49 

ENC 

SMOO 

50 



SUBROUTINE SMTHPR ( S , YS , XX f YX , N*X , NNU ) 


SMPR 

1 

C 



SM PR 

2 

C 

SUBROUTINE SMTHPR INTERPOLATES FOR YS IN THE ARRAY 

YX 

SMPR 

3 

C 

CORRESPONDING TO S IN THE ARRAY XX 


SMPR 

4 

c 



SMPR 

5 

c 

SUBROUTINE SMTHPR CALLS SUBROUTINE INTRPS. 


SMPR 

6 

c 



SMPR 

7 

c 

SUBROUTINE SMTHPR IS CALLED BY MAIN AND SUBROUTINE 

VPRFLE. 

SMPR 

8 

c 



SMPR 

9 


DIMENSION XX(NPX) » YX(NPX) 


SMPR 

10 

c 



SMPR 

11 

c 

NPX = NUMBER CF POINTS IN XX AND YX 


SMPR 

12 

c 



SMPR 

13 


SMALL=1.0E-5 


SMPR 

14 

c 



SMPR 

15 

c 



SMPR 

16 


YMIN=100. 


SMPR 

17 


X M I N= 1 00 • 


SMPR 

18 


DO 10 N- 1 » NP X 


SMPR 

19 


IF fYMIN.GT.YX(N)) YM I N=YX ( N ) 


SMPR 

20 


IF ( XMIN.GT.XX(N) ) XMIN=XX(N) 


SMPR 

21 

10 

CCNTINUE 


SMPR 

22 

c 



SMPR 

23 

c 

SHIFT COORDINATES 


SMPR 

24 

c 



SMPR 

25 


IF (XMIN.LE.O.O) XMINX=ABS(XMIN)+SMALL 


SMPR 

26 


IF ( YMIN.LE.O.O) YM I NX=ABS ( Y M I N ) +SMALL 


SMPR 

27 


IF ( YMIN.GT.G.O) YMINX=0.0 


SMPR 

28 


IF (XMIN.GT.O.O) XMINX=0.0 


SMPR 

29 


XMI N=XMI NX 


SMPR 

30 


YM I N=YM I NX 


SMPR 

31 


DO 20 N=1 f NP X 


SMPR 

32 


XX (N) = XX( N J+XMIN 


SMPR 

33 

20 

YX(N)=YX(N>+YMIN 


SMPR 

34 


S=S+XM I N 


SMPR 

35 

c 



SMPR 

36 

c 

INTERPOLATE 


SMPR 

37 

c 



SMPR 

38 


CALL INTRPS ( S , YS , XX , Y X , N PX , NNU i DUM I 


SMPR 

39 

c 



SMPR 

40 

c 

RESHIFT COORDINATES 


SMPR 

41 

c 



SMPR 

42 


S=S-XMIN 


SMPR 

43 


Y S=Y S— YM l N 


SMPR 

44 


DO 30 N*1,NPX 


SMPR 

45 


XXlN )=XX( N ) — XMIN 


SMPR 

46 


Y X ( N ) = YX ( NJ— YMIN 


SMPR 

47 

30 

CCNTINUE 


SMPR 

48 


RETURN 


SMPR 

49 


END 


SMPR 

50 
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SUBROUTINE SOLVE ( W1 ,W2, El ,F1 , CRN I , W2 I E, CS 1,CS2,SSFAC ) 

SOLV 

1 

c 



SOLV 

2 

c 

SUBROUTINE SOLVE RETURNS THE SOLUTION OF PARABOLIC PARTIAL SOLV 

3 

c 

DIFFERENTIAL EQUATIONS IN STANCARD FORM 


SOLV 

4 

c 



SOLV 

5 

c 

SUBROUTINE SOLVE CALLS SUBROUTINE DERIV3. 


SOLV 

6 

c 



SOLV 

7 

c 

SUBROUTINE SOLVE IS CALLED 8Y SUBROUTINES ENERGY, SMOMNT , AND SOLV 

8 

c 

SPECIE. 


SOLV 

9 

c 



SOLV 

10 


COMMON /SOLV/ A1 1 51) , A21 5 1) , A3 t 5 1 > , A4< 51 > , DN t 52) , DS f XN ( 52 ) t I E , IM SOLV 

n 


DIMENSION W INN (51), W1N(51), Ml(51) 


SOLV 

12 


DIMENSION E<51), F(5L), *2(51) 


SOLV 

13 


E ( 1 ) = E 1 


SOLV 

14 


F ( 1 ) =F1 


SOLV 

15 


CALL DERIV3 ( W 1 , XN , I E , 1 , H 1 N) 


SOLV 

16 


CALL 0ERIV3 ( W IN , XN, I E , 1 , W INN ) 


SOLV 

17 


DC 10 N=2 , I M 


SOLV 

18 

c 



SOLV 

19 

c 

CALCULATE RECURSION FORMULAS OUTWARD 


SOLV 

20 

c 



SOLV 

21 


A=(2.00-A1IN)*DN(N) ) / ( 0N< N-l ) * (DN ( N) +DN(N- 1) ) ) *CRNI 

SOLV 

22 


B= ( ( -2 • C + A1 ( M * ( DN ( N ) -DN ( N— 1 )) )/(DN(N|*DN(N-l) ) +A 2 ( N ) ) *C RN I + A4 ( N ) /SOLV 

23 


IDS 


SOLV 

24 


C=(2.00+A1 <N)*DN(N-1) ) / ( DN ( N ) * ( DN ( N ) +DN ( N- 1 ) ) ) *CRNI 

SOLV 

25 


0=-( WlNN(N) + Al(N)*WiN<N»+A2(N)*WUN) )*(1 .OO-CRNI )- A3 ( N ) + A4( N ) * W1 ( NSGLV 

26 


1)/DS 


SOLV 

27 


E(M=-C/(B+A*E(N-1)> 


SOLV 

28 

10 

F ( N ) = ( D— A * F ( N— 1 ) )/(B+A*E(N-l ) ) 


SOLV 

29 


IF ( SSFAC ) 30,30,20 


SOLV 

30 

20 

SK1=CS1+(DN( IM-1 )+2.00*DN( IM) )/(DN< IM)*< DN ( I M ) +DN( IM-1 ) ) )-(DN( IM-1 SOLV 

31 


D+DNCIM) )*E(IM)/(DN( IM-1 )*DN( IM) )-DN( IM)*(B*E( IM ) +C ) / ( A *DN ( IM-1)*(S0LV 

32 


2DN ( I M ) +DN ( IM-1)) ) 


SOLV 

33 


SK2=— CS2+ ( DN ( IM-1)+DN( IM ) ) *F (I M )/ I DN ( IM-1)*DN( IM))+DN( I M )* i B*F (1H ) SOLV 

34 


1-C)/(A*DN( IM-1 )*<DN( IM-1 )+DN( IM) ) ) 


SOLV 

35 


W2 (IE) =SK2 /SKI 


SOLV 

36 


GO TO 40 


SOLV 

37 

30 

W2 (IE ) =W2 I E 


SOLV 

38 

40 

KCN=IM 


SOLV 

39 


DC 50 N = 2 , IE 


SOLV 

40 

C 



SOLV 

41 

c 

CALCULATE FUNCTION INWARD 


SOLV 

42 

c 



SOLV 

43 


W2(K0N) = E(K0N)*W2( KON + 1 ) +F ( KCN ) 


SOLV 

44 

50 

KGN=KQN- 1 


SOLV 

45 


RETURN 


SOLV 

46 


END 


SOLV 

47 


SUBROUTINE SPECIE 


SPEC 

1 

c 



SPEC 

2 

c 

SUBROUTINE SPECIE SOLVES THE SPECIES EQUATIONS 


SPEC 

3 

c 



SPEC 

4 

c 

SUBROUTINE SPECIE CALLS SUBROUTINES ADJUST, DERIV3, AND SOLVE. SPEC 

5 

c 



SPEC 

6 

c 

SUBROUTINE SPECIE IS CALLED BY MAIN. 


SPEC 

7 

c 



SPEC 

8 


CCMMCN /BODY/ HANGL E , X JF AC , I G EC M , J FAC 


SPEC 

9 


COMMON /COMARL/ XN SP ( 202 ) , XSOL ( 200 ) 


SPEC 

10 


COMMON /COMAR 1 / A A ( 5 1 ) , BB ( 51 ) , C AEQ ( 5 1 ) ,CON ( 51 ) 

, C01 (51) 

,C02t*51) ,CPSSPEC 

11 


IT ( 51) ,EMBAR( 51 ) t PC ( 5 1 1 , PCN (5 1 I ,PE ( 51 ) , PFAC ( 5 1 ) 

» PS ( 51 ) , 

PO ( 5 1 ) , PON ( 5SP EC 

12 


21) ,Pl(51),PlN(51) f P2(51),P2N(51),Ql(51),Q2(51) 

, RC ( 51 ) , 

RCON ( 5 1 ) , RCSSP EC 

13 


3F(51 ) , RNSH< 51 ),RVISC(51),R1I51 ) , R2 (5 1 ) *TC ( 51 ) » 

T1(51),T2(51),T20(51SPEC 

14 


4) ,T21(51) *UC(51) , UCN( 51 ) * UC1 (51),U1(51)« U2 (51) 

, U20 ( 51 ) 

,VC(51),VCD(SPEC 

15 


551 It VCIU 51) ,VC12(51» .V6(51) > VGN< 5 1 ) t VGSt 51) , VI SC ( 51 1 1 

V S ( 5 1 ) ,V0(51SPEC 

16 


6),V0N(51),V1(51) v V2( 51),V2N<51) 


SPEC 

17 


COMMON /COMDBL/ AJB ( 51 .6 1 , AJM< 51 > 61 ,CC < 5 1 , 61 t CCL ( 51 t 6) 

v CCN(51v6) tCSPEC 

18 
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IP I ( 51 , 6) ,C1(5L,6),C2( 5 1 » 6) ,C20(51,6) »0W( 51 , 6) t HI C 51 , 6 ) ,WQ(5i,6>, 

W1SPEC 

19 


2(51,6) 


SPEC 

20 


COMMON /COMEOG/ CIE(6),TCIE 


SPEC 

21 


COMMON /CQMFAC/ CCFAC,UFAC 


SPEC 

22 


COMMON /COMFSA/ C TNF ( 6 1 ,CP IPS ( 6 1 , DELHIF( 6 ) ,HINF( 6 1 


SPEC 

23 


COMMON /CO MG/ CAT f CNS , CBN I ,REFAC, SSFAC, S WFAC ,THIN ,VPG, 1 , K, 

NITER 

SPEC 

24 


COMMON /C0MG1/ CP , CPB , SP , SPB 


SPEC 

25 


COMMON /C0MG2/ CK,CK2 ,CSF2 ,RS2 , S I F2 , XB2, XNSPM 


SPEC 

26 


COMMON /COMNS/ NS 


SPEC 

27 


COMMON /C0MNS2/ N J , NR , N$M1 ,NZ 


SPEC 

28 


COMMON /COMSML/ SMALL T 


SPEC 

29 


CCMMCN /COMSUM/ CPJSUM( 51 ) ,HDW$UM ( 51 ) ,HWSUMf 51 ) ,HJSUMW 


SPEC 

30 


COMMON /COMTST/ Cl F I( 8 I , D IF, XU25 


SPEC 

31 


CCMMCN / COMW/ Cl W ( 6 ) , C IWW ( 6) ,CP I W( 6) , H IW ( 6 ) , HTFU3 , TB , TCNW, 

TW 

SPEC 

32 


COMMON / INSH/ CONO, S , UPSH , XNS , EPS , TPSH , V l SCO 


SPEC 

33 


CCMMCN /OUTSH/ PPS, PPS1, PPS2 ,PSP,REYSH,RRS,RRS 1, RRS2 , RSP ,TSP ,TTS 

, TSPEC 

34 


ITS1, TTS2,USP ,UUStUUSl,UU$2,VSP,VVS,VVSl, VVS2 


SPEC 

35 


CCMMCN /PRLE/ SIGM,XLE 


SPEC 

36 


COMMON / SOL V/ A1 ( 51 ) , A2 ( 51 ) , A3 ( 51 ) , A4( 51 ) , DN( 52) , DS, XN ( 52 ) 

, I E , I M 

SPEC 

37 

c 



SPEC 

38 


DIMENSION A JBN ( 51 ) , AJMN(51) 


SPEC 

39 

c 



SPEC 

40 


SMALL=1.0D-40 


SPEC 

41 


CMAX=1 #00— SMALLT 


SPEC 

42 

c 



SPEC 

43 


DO 80 J= 1 , NSM1 


SPEC 

44 

c 



SPEC 

45 

c 

SCLVES FOR ONE LESS THAN THE NUMBER OF SPECIES 


SPEC 

46 

c 



SPEC 

47 


DG 10 N = l, IE 


SPEC 

48 


Q1(N)=AJB(N,J) 


SPEC 

49 

10 

Q2(N)=AJM(N, J) 


SPEC 

50 


CALL DERIV3 ( Q1 , XN, I E , 1 , A JBN ) 


SPEC 

51 


CALL DERIV3 ( Q2 , XN , I E , 1 , A JMN ) 


SPEC 

52 


AJBN(1)=AJBN(2) 


SPEC 

53 


AJBN( IEMAJBM IM) 


SPEC 

54 


DO 20 N = l, IE 


SPEC 

55 

c 



SPEC 

56 

c 

CALCULATE COEFFICIENTS FOR PARTIAL DIFFERENTIAL EQUATIONS 


SPEC 

57 

c 



SPEC 

58 


fll(N) = REFAC*HSCO*(UUS*XNSP( I ) *RNSH< N 1 *RC ( N 1 *UC( N 1 *XN ( N ) /( VV S*CNS » SPEC 

59 


l-RC ( N) * VC ( N) )/AJB(N, J)+AJBN(N)/AJB(N, J)+CK*RNSH(N)+RCSF(N)*XJFAC 

SPEC 

60 


A2 ( N)=-R£FAC*V I SCO*CNS *RC (N)*WKN»J)/( VVS*AJ8( N, J) ) 


SPEC 

61 


A3IN)=REFAC*VISC0*CNS*RC<N)*W0(N, J > / < VVS* A JB < N ,J ) ) «-A JMNI N ) /A JB < N 

, JSPEC 

62 


U+ (AJM(N, J )/AJB(N, J) )*(CK*RNSH(N)+XJFAC*RC$F{N> ) 


SPEC 

63 

20 

A4 ( N ) =~RE F AC*VISCG*UUS*PNSH(N)*RC(N)*UC(N)/(VVS*AJB{N,J) ) 


SPEC 

64 


FAC=CON0*XL£/CPST (IE) 


SPEC 

65 

c 



SPEC 

66 

c 

CALCULATE SLIP VARIABLES 


SPEC 

67 

c 



SPEC 

60 


CSl=XNS*SP/< EPS*EP$*FAC) 


SPEC 

69 


C S2=-XNS*S P*C I NF ( J ) / ( EPS* EPS*F AC ) 


SPEC 

70 


00 30 N=l, IE 


SPEC 

71 

30 

Q i (N ) = C1 ( N , J ) 


SPEC 

72 


IF (CAT) 40,40,50 


SPEC 

73 

40 

CONTINUE 


SPEC 

74 

C 



SPEC 

75 

C 

NON-CATALYTIC WALL 


SPEC 

76 

c 



SPEC 

77 


El-1.0 


SPEC 

78 


Fl=0.0 


SPEC 

79 


GO TO 60 


SPEC 

80 

50 

CONTINUE 


SPEC 

81 

C 



SPEC 

82 

C 

CATALYTIC WALL 


SPEC 

83 

c 



SPEC 

94 


El=G.O 


SPEC 

85 


Fl-CIWWf J) 


SPEC 

86 

c 



SPEC 

87 

60 

CALL SOLVE < Qi ,02, El , F 1,CRN1 ,C INF ( J) ,CSl ,C S2 , S SFAC ) 


SPEC 

88 
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c 


SPEC 

89 


0G 70 N=l,IE 

SPEC 

90 


C2(N t J)-Q2(N) 

SPEC 

91 

70 

C1(N,J)=Q1<N) 

SPEC 

92 

80 

CONTINUE 

SPEC 

93 


DO 100 N=1*IE 

SPEC 

94 


CSUM=0.0 

SPEC 

95 


DO 90 J=1 f NSM1 

SPEC 

96 

90 

CSUM=CSUM+C2(N,J) 

SPEC 

97 


C2(N f NS)=1.0~CSUM 

SPEC 

98 

C 


SPEC 

99 

C 

LAST SPECIES FROM SUM OF NS-1 SPECIES 

SPEC 

100 

C 


SPEC 

101 

100 

CONTINUE 

SPEC 

102 


DO 140 J=1 #NS 

SPEC 

103 


DO 130 N=1 » I E 

SPEC 

104 


IF ( S «GE. 0. 0001) GO TO 120 

SPEC 

105 


IF (NS.E0.6) GO TO 110 

SPEC 

106 


IF (NITER. GT. 20) GO TO 110 

SPEC 

107 


Cl(N,J)=C2(Nr J) 

SPEC 

108 


GO TO 120 

SPEC 

109 

110 

CONTINUE 

SPEC 

110 


Cl(N,J)=CCFAC*Ci(N,J)+(1.0-CCFAC)*C2(N,J) 

SPEC 

111 

120 

CC<N,J)=(Cl(N,J>+C2<N,J)>/2. 

SPEC 

112 

130 

CONTINUE 

SPEC 

113 


C I V» ( J)=CC( X, J> 

SPEC 

114 


CIE( J)=CC( IE,J) 

SPEC 

115 

140 

CONTINUE 

SPEC 

116 


DC 160 J=1,NS 

SPEC 

117 


DO 150 N=2,IM 

SPEC 

118 

C 


SPEC 

119 

C 

BOUND SPECIES 

SPEC 

120 

C 


SPEC 

121 


IF (CC(N,J).LE. SMALL) CC (N, J)=SMALL 

SPEC 

122 


IF (CC(N, JJ.GT.CMAX) CC(N,J)=CMAX 

SPEC 

123 

150 

CONTINUE 

SPEC 

124 

160 

CCNTINUE 

SPEC 

125 

C 


SPEC 

126 


DO 190 J=1 tNSMl 

SPEC 

127 


DO 170 N=1 t I E 

SPEC 

128 

170 

01 ( N ) =CC ( N * J ) 

SPEC 

129 


CALL DERIV3 CQ1, XN* IE , 1,02) 

SPEC 

130 


DO 180 N=1 # I E 

SPEC 

131 

180 

CCN ( N t J ) =02 ( N ) 

SPEC 

132 

190 

CCNTINUE 

SPEC 

133 


DO 240 N=1,IE 

SPEC 

134 

C 


SPEC 

135 

C 

CALCULATE PRODUCT SUMS 

SPEC 

136 

C 


SPEC 

137 


$UM1=0.00 

SPEC 

138 


SUM2=0.00 

SPEC 

139 


SUM3=0.00 

SPEC 

140 


SUM4=0.00 

SPEC 

141 


SUM5-0.00 

SPEC 

142 


DO 200 J=1,NSP1 

SPEC 

143 


SUM1-SUM1 +CC ( N t J ) 

SPEC 

144 


SUM2=SUM2+CCN(Nf J ) 

SPEC 

145 


$UM3-SUM3+W0(N*J ) 

SPEC 

146 


SUM4=SUM4+W1 ( N, J ) *CC ( N« J ) 

SPEC 

147 


SUM5=SUM5+0W(N,J) 

SPEC 

148 

200 

CCNTINUE 

SPEC 

149 


CC(NfNS )= 1.0 O-SUM 1 

SPEC 

150 


CCN( N» NS ) --SUM2 

SPEC 

151 


WO (Nt NS) --SUM3 

SPEC 

152 


W1 (N r NS ) =— SUM4/CC ( N »NS ) 

SPEC 

153 


DW ( N f NS ) =-SUM5 

SPEC 

154 


DO 220 J=1,NS 

SPEC 

155 


IF (CCLIN, J) .EQ.O.OO) GO TO 210 

SPEC 

156 


DIFF=ABS(1 .00-CC(NtJ)/CCL(N, J) ) 

SPEC 

157 


IF (DIFF.GT.DIFI ( J+2) ) DIF I ( J + 2)=DIFF 

SPEC 

158 


167 


210 

CONTINUE 

SPEC 

159 


CCL(N,J )=CC(N, J) 

SPEC 

160 

220 

CONTINUE 

SPEC 

161 


CPJSUM(N)=0.0 

SPEC 

162 


HDWSUMCN ) =0.0 

SPEC 

163 


HfcSUM(N)=0.0 

SPEC 

164 


00 230 J=1,NS 

SPEC 

165 


CPJSUM(N)=CPJSUM(N)-CPI(N, J)*( AJM(N» JJ+AJBIN, J )*CCN(N, J) )/CNS 

SPEC 

166 


HCWSUM(N)=HDWSUM(N1+0W(N, J)*HI<N, J) 

SPEC 

L67 

230 

HWSUM(N)=HWSUM(N)+(W0(N,J)-W1<N,J)*CC<N,J) )*HI (N,JI 

SPEC 

168 

240 

CONTINUE 

SPEC 

169 


HJ5UMW=0.0 

SPEC 

170 


00 250 J=1,N$ 

SPEC 

171 

250 

HJSUMH=HJSUMW+HI U , J ) * ( AJM ( 1 f J ) +AJB< 1 , J) *CCN (1 , J ) ) 

SPEC 

172 


RETURN 

SPEC 

173 


END 

SPEC 

174 



SUBROUTINE THERM < ISKl , BRAD, CCNC,VI$CO, EPS, VIS2) 

THRM 

1 

C 


THRM 

2 

C 

SUBROUTINE THERM CALCULATES THERMODYNAMIC PROPERTIES 

THRM 

3 

c 


THRM 

4 

c 

SUBROUTINE THERM CALLS SUBROUTINES DERIV3, HCP, HCPA, VISCNA, 

THRM 

5 

c 

VISCON, ANO WISUB. 

THRM 

6 

c 


THRM 

7 

c 

SUBROUTINE THERM IS CALLED BY MAIN* 

THRM 

Q 

c 


THRM 

9 


COMMON /COMAR 1/ AA ( 51 ) , BB 1 51 ) , CAEQ ( 5 1 > , CON ( 5 1 ) , CO 1(51), C 02 (51) ,C PSTHRM 

10 


1T(51),EM3AR(51),PC(51),PCN(51),PE(51),PFAC(51) ,PS( 51 ),P0( 51) ,P0N(5THRM 

11 


21),P1(51),PIN(51),P2(51),P2NC51),0H51),Q2(51),RC(51),RC0N(51>,RCSTHRM 

12 


3F(51) ,RN$H(51) ,RVI$C( 51) ,R1( 51),R2(51) ,TC( 51),Tl( 51) »T2(51) ,T20(5lTHRM 

13 


4),T21(51) , UC ( 51 ) ,UCN( 51) ,UC1 (51) ,Ult 51) ,U2(51 ) ,U20( 51 ) , VC( 51 ) , VCD ( THRM 

14 


551), VC 11(51) »VCI2(51) ,VG(51) ,VGN( 51 > ,VGS ( 51) , V I SC ( 51 ) , VS ( 5 1 ) , VOt 51THRM 

15 


6 ) , VON (51) , VI ( 51 ) , V2( 51 ) » V2N{ 51 ) 

THRM 

16 


COMMON /COMDBL/ AJB( 5 l , 6 ) , AJM( 5 1 , 6 ) , CC ( 5 1 , 6) ,CCL ( 5 1 , 6 ) ,CCN( 5 1 , 6 ) 

,cthrm 

17 


IP I (51,6) ,C1( 51,6) ,C2( 51,6) ,C20(51,6) ,0W(51 ,6) »HI (51,6) , WO (51,6), 

W1THRM 

18 


2(51,6) 

THRM 

19 


COMMON /COMFS/ P INF, REY IN, RI NF ,T INF, U INF 

THRM 

20 


COMMON /COMFSA/ C INF ( 6 ) , CP IFS ( 6 ) , OELH I F ( 6 ) , HINF( 6 ) 

THRM 

21 


COMMON /COMNS/ NS 

THRM 

22 


COMMON /COMREF/ CGNREF ,CPR EF ,HREF , PREF ,RREF, TREF, UREF , VSREF , WREF 

THRM 

23 


COMMON /COMVS/ EM 1(6) , VSA( 6) ,VSB(6),VSC(6) ,R,NSPI (6) 

THRM 

24 


CCMMCN /COMW/ Cl W ( 6 ) ,C IWW< 6 ) ,CPI W( 6) ,H I W( 6 ) ,HTFLB , TB , TCNW, TW 

THRM 

25 


COMMON /OUTSH/ PPS , PPS1 , PPS2 , PSP , R EYSH, RRS , RRS l,RRS2,RSP,TSP,TTS 

, TTHRM 

26 


lTSl,TTS2,USPtUUS,UUSl,UUS2,VSP,VVS,VVSl,VVS2 

THRM 

27 


CCMMCN /PRLE/ SIGM.XLE 

THRM 

28 


CCMMCN /SOLV/ A1 ( 51 ) , A2 ( 51 ) , A3 ( 5 1 ) ,A4( 51 ) , DN ( 52 ) , DS , XN ( 52 ) , I E , I M 

THRM 

29 

c 


THRM 

30 


DIMENSION VST ( 51 ) , CST(51), VISCN(51), C0NN(51) 

THRM 

31 


DIMENSION HF AC ( 6 ) 

THRM 

32 

c 


THRM 

33 


GO TC (10,30), ISKI 

THRM 

34 

10 

CONTINUE 

THRM 

35 


CAEQW=0 *00 

THRM 

36 

c 


THRM 

37 

C 

OXYGEN PROPERTIES- DAVIS A IA A PAPER 

THRM 

38 

C 


THRM 

39 


EMI ( 11=16*00 

THRM 

40 


EM I ( 2) = 32* 00 

THRM 

41 


B1=EXP(— 11.692729) 

THRM 

42 


B2=EXP(-9. 550244) 

THRM 

43 


B3=SQRT< 8.00+8. 00*EMI < 1)/EMI (2)) 

THRM 

44 

c 


THRM 

45 


CO 1=44*92777 

THRM 

46 


CQ2=45. 94634 

THRM 

47 


001=37.83461 

THRM 

48 


002=38.85627 

THRM 

49 


Cl 1=59400* 

THRM 

50 


C12=59400. 

THRM 

51 


011=0.0 

THRM 

52 


168 



nno n r> w no o m noo 


012 = 0.00 
C2l=-l .000 
C22=-1.000 
D21=— 0*5000 
D22=— 0 .5000 
C 

CALL HCP (TINF,CPIFS,HINF,HFAC) 

href=uinf*uinf 

FREESTREAM AND REFERENCE CONDITIONS 

EMBR FS=0 .0 
CPINF=0.0 
00 20 J=1,NS 

CPINF=CPINF+CPIFS(J)*CINF{ J) 
EMBRFS=fcMBRFS+CINF(J)/EMI< J) 

0 CONTINUE 

EMBRFS= 1 .0/EMBRFS 
TREF=UINF*U INF/CP INF 
P I NF=R I NF*R*T I NF/EM8RFS 
RREF=RINF 
UREF=UINF 

PREF=RINF*UINF*UINF 
CPREF=CP INF 
WREF=UINF/BRAO 

CALL VISCON (CINF,CPIFS,VSREF, AKAYRFtTREF) 
WRITE (6,130) VSREF 
CCNRFF=VSR EF#CPREF 


CALL VISCON (CINF,CPIFS,VSINF,AKAINF,TINF) 

WRITE (6,140) VS INF 
EPS=SQRT ( VSREF/{ RINF*U INF* BRAD) ) 

REYI N=R I NF*U INF* BRAD/ VS INF 
TW=TB/TREF 
GC TO 90 
3 CONTINUE 

VSMALL=1 .0E-40 

CALL HCPA (TC, IE, H RE F, C PR EF,TT St TREF, HI, CPI) 

IF (NS. ME. 2) CALL VISCNA ( TC ,CC, CP I , I E ,VST ,CST ,TTS ,TREF, CPREF) 

DO 50 N=1 , IE 

REACTION RATES AND PRODUCTION TERMS FOR DISSOCIATING OXYGEN 

TST=TC(N)*TTS*TREF 
RST=RC(N)*RRS*RREF 
TK=TST/1 • 80 
RBAR=0.51536C*RST 
EKF1=EXP(C01-C11/TK)*TK**C21 
IF (EKF1.LT.VSMALU EKFt=VSMALL 
EKF2=EXP(C02-C12/TK)*TK**C22 
IF (EKF2.LT.VSMALU EKF2= VSMALL 
EKB1=EXP(D01-D11/TK)*TK**D21 
EKB2=EXP(D02-012/TK)*TK**D22 

WODI M=RBAR*( G*50*( 1 .OO-CC ( N, 1 ) )*EKF1+CC( N, U*EKF2)/EMI(1) 

WO (N , 1)=W0CIM/WR EF 

W1DIM=WGDIM+2.00*RBAR**2*CC<N,1)*(0.50*<1 .OO-CCCN, 1) )*EKBl+CC(f 
l*EKB2)/(EMI( l)*EMI(l) ) 

W1(N,1)=W1DIM/WREF 
DWDTK=RBAR*( ( 1. OO-CC ( N, I ) ) *( C. 50* ( 1.00-CC ( N, 1 ) )*EKF1*<-1 *00*C21+CITHRM 
11 /TK )+CC (N , 1 )*EKF2*t - 1.00+C22+C12/TK ) ) +2. 00*RBAR*CC ( N , 1) (0*50*THRM 
2( 1 .00-CC( N ,1 ) J^EKBl^ ( 2.00-D21— 011/TK)+CC(N, 1 )*EKB2*( 2 • 0G-D22-D12/TTHRM 


THRM 

53 

THRM 

54 

THRM 

55 

THRM 

56 

THRM 

57 

THRM 

58 

THRM 

59 

THRM 

60 

THRM 

61 

THRM 

62 

THRM 

63 

THRM 

64 

THRM 

65 

THRM 

66 

THRM 

67 

THRM 

68 

THRM 

69 

THRM 

70 

THRM 

71 

THRM 

72 

THRM 

73 

THRM 

74 

THRM 

75 

THRM 

76 

THRM 

77 

THRM 

78 

THRM 

79 

THRM 

80 

THRM 

81 

THRM 

82 

THRM 

83 

THRM 

84 

THRM 

85 

THRM 

86 

THRM 

87 

THRM 

88 

THRM 

89 

THRM 

90 

THRM 

91 

THRM 

92 

THRM 

93 

THRM 

94 

THRM 

95 

THRM 

96 

THRM 

97 

THRM 

98 

THRM 

99 

THRM 

100 

THRM 

101 

THRM 

102 

THRM 

103 

THRM 

104 

THRM 

105 

THRM 

106 

THRM 

107 

THRM 

108 

THRM 

109 

THRM 

110 

THRM 

111 

)THRM 

112 

THRM 

113 

THRM 

114 


3K ) )/EMI(l) )/ ( EMI ( 1 )*TK ) 
OW(N,1)=UREF*BRAD*OWOTK/(CPREF*1.80) 
DW(N,2)=-DW(N,l) 

W0(N,2)=-W0(N,1> 

W1(N,2>=-W1(N»1)*CC(N,1)/CC(N,2) 
AEG=0.50*< l.OO-CAEQ(N) )*EKF1+CAEQ(N)*EKF2 


THRM 

THRM 

THRM 

THRM 

THRM 

THRM 


115 

116 

117 

118 

119 

120 
121 
122 
123 
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ooo tn o o o oonn 


0 


0 


60 


70 


IF t AEQ.LT .V SMALL) AEQ=VSMALL THRM 124 

BEQ=<0.50*(1.00-CAEQ<N|)*EKBl*CAEQ{N)*EKB2)*2.00*RBAR/EMim THRM 125 

R0QT=1.00+4.00*BEQ/AEQ THRM 

IF (ROOT. LE. 0.0) WRITE (6,100) AEQ,BEQ,CAEQ(N) ,RBAR,RC(N> ,RRS,RREFTHRM 


1 ,TST ,TC(N) ,TTS,TREF 

CAEQ(N)=AEQ*(— 1. 00+SQRT ( 1 .00+4 .00*BEQ/AEQ ) )/(2.00*BEQ) 

IF (RST.LE.0.0) WRITE (6,110) RST , RC (N ) ,RP.$, RR EF , PC ( N ) , EMB AR ( N ) 
TF (TST.LE.0.01 WRITE (6,120) TST, TC ( N ) , TTS, TREF 

PRODUCTION TERMS FOR MULTI-COMPONENT AIR 

IF (NS.NE.2) CALL WISUB (RST, TST, N) 

CPST(N)=0.0 
SUM=0 .0 
DO 40 J=1 , NS 
SUM=SUM+CC (N,J)/EMI(J) 

CPST (N)=CPST(N)+CC(N, J)*CPI(N, J) 

CONTINUE 

EM6AR(N)=1. O/SUM 
IF (NS.NE.2) GC TO 50 

VISCOSITY AND THERMAL CONDUCTIVITY FOR DISSOCIATING OXYGEN 


126 

127 

128 

129 

130 


THRM 
THRM 
THRM 
THRM 131 
THRM 132 
THRM 133 
THRM 134 
THRM 135 
THRM 136 
THRM 137 
THRM 138 
THRM 139 
THRM 140 
THRM 
THRM 
THRM 
THRM 
THRM 
THRM 
THRM 147 
THRM 148 
THRM 149 
THRM 150 
THRM 151 
THRM 


141 

142 

143 

144 

145 

146 


CPA=CPI(N,1)*CPREF 
CPH=CPI(N,2)*CPREF 

VST1=B1*TK**(0.0184896*ALCG<TK) +0.4558 107) 

VST2=B2*TK**(0.0389680*AL0G(TK) +0.0094176) 
B4=(1.00+SQRT(VSTl/VST2)*(EMI(2)/EMI(l))**0.250>**2/B3 THRM 152 

VST(N)=(CC(N,1)*VST1/(EMI(1)*B4/EMI(2)+(1.00-EMI ( 1 ) *B4/EMI ( 2 ) )*CC (THRM 153 
IN, 1) )+(1.0C-CC(N, 1) )*VST2/(L.0C-( 1 .00- VST2*B4/ VST 1 ) *CC ( N, 1 ) ) )*O.OOTHRM 154 
22088550 THRM 155 

C0N1=VST1*R*(CPA*EMI ( 1 ) /R+l. 250 ) /EMI ( 1 ) THRM 156 

CGN2=VST2*R*(CPM*EMI( 2 J/R+l. 250) /EMI (2) THRM 157 

CSKNJMCCJNtlJ^CONl/IEMI ( l)*84/EMI(2) + ( 1 . OO-EMI ( 1 ) *B4/EMI ( 2 ) ) *CC ( THRM 158 
1N,1) )+(1.00-CC(N,l))*C0N2/(1.00-( 1 .00-VST2*B4/VST 1 ) *CC ( N , 1 ) ) )*O.OOTHRM 159 


22088550 

THRM 

160 

CONTINUE 

THRM 

161 

VISCO=VST{ I E ) /VSREF 

THRM 

162 

CGNO=CST (IE) /CGNREF 

THRM 

163 

DO 60 N= 1 , IE 

THRM 

164 

V I SC ( N ) =VST( N )/VST(IE) 

THRM 

165 

CCNCN)=CST(N)/CST( IE) 

THRM 

166 


THRM 

167 

DIFFUSIONAL FLUX TERMS 

THRM 

168 


THRM 

169 

AJB(N,1)=CST(N)*XLE/(CP$T{N)*C0NREF> 

THRM 

170 

A JB ( N ,2 ) =A JB ( N, 1 ) 

THRM 

171 

AJB(N,3)=AJBCN,1> 

THRM 

172 

AJB(N»4)=AJ3(N,1) 

THRM 

173 

AJB(N,5)-AJB(N,1 ) 

THRM 

174 

AJfi(N,6)=AJB(N,l) 

THRM 

175 

A JM ( N , 1 ) =0 .0 

THRM 

176 

A JF ( N ,2 ) =0.0 

THRM 

177 

A JM ( N ,3 ) =0.0 

THRM 

173 

A JM ( N , 4 )=0 .0 

THRM 

179 

A JF{ N , 5 ) =0.0 

THRM 

180 

A JM ( N , 6 ) -0.0 

THRM 

181 

CONTINUE 

THRM 

182 

CALL DERIV3 ( VI S C , XN , I E , 1 , VISCN ) 

THRM 

183 

CALL DERIV3 ( CON , XN, I E , 1 , CCNN ) 

THRM 

134 

OC 70 N=2,IM 

THRM 

185 

RVISC(N)=VISCN(N)/VISC(N) 

THRM 

186 

RCCMN)=CONN(N)/CON(N) 

THRM 

187 

CONTINUE 

THRM 

188 

RCCN ( 1 ) =RCCN ( 2 ) 

THRM 

189 

RCON ( I E ) = RCON ( I M ) 

THRM 

190 

RVISC(1)=RVISC(2 ) 

THRM 

191 

RVI SC ( IE)=RVISC( IM) 

THRM 

192 


THRM 

193 

SHOCK REYNOLDS N'UFBER 

THRM 

194 


170 



c 


THRM 

195 


REYSH=RINF*UINF*BRAD/VST( IE) 

THRH 

196 


TR=T2(1)*TTS2*TREF 

THRM 

197 

c 


THRM 

198 


CALL HCP (TR»CPIW,HIWf HFAC ) 

THRM 

199 


CALL VISCON <ClW f CPlW»VI5,AKAY f TR) 

THRM 

200 


VIS2=VIS/(VSREF*VISC0) 

THRM 

201 

c 


THRM 

202 

c 

WALL CONDITIONS 

THRM 

203 

c 


THRM 

204 


TK=TB/1.80 

THRM 

205 


RH=PC(1)*PPS/(TW*R*< 1.00+CAEQH*(EHH2J/EHI«1 )-1.00) )/tCPINF*-EMI(2)THRH 

206 


in 

THRM 

207 


T ST=TB 

THRM 

208 


RST=RREF*RW 

THRM 

209 


RB AR=0. 515360*RST 

THRM 

210 


EKF1=EXP(C01-C11/TK)*TK**C21 

THRM 

211 


IF ( EKF1.LT. VSMALL) EKF1=VSMALL 

THRM 

212 


EKF2=EXP(C02-C12/TK)*TK**C22 

THRM 

213 


IF (EKF2.LT. VSMALL) EKF2=VSMALL 

THRM 

214 


EKB1=EXP(D01— D11/TK)*TK**D21 

THRM 

215 


EKB2=EXP ( D02-D 12/TK)*TK**D22 

THRM 

216 


CALL HCP (TST,CPIW,HIW,HFAC) 

THRM 

217 


HAVi=HlW( 1) /HREF 

THRM 

218 


HMW=HIW(2)/HREF 

THRM 

219 


AEQ=0.50*( 1. OO-CAEQW )*EKF1+CAEQW*EKF2 

THRM 

220 


IF (AEQ.LT. VSMALL) AEQ=VSMALL 

THRM 

221 


BEQ=<0.50*(1 .OO-CAEQW ) *EKB 1+C A EGW+EKB2 )*2 .00*R BAR/ EM I ( 1) 

THRM 

222 


CAEQW=AEQ*(-1.00+SQRT(1.00+4.00*BEG/AEQ) )/(2.00*BEQ) 

THRM 

223 


HTFLB=CAEQW*HAW+( 1 .OO-CAEQW) *HMW 

THRM 

224 


HW=0.0 

THRM 

225 


DO 80 J= 1 » NS 

THRM 

226 

80 

HW=HW+CIW< J)*HIW( J)/HREF 

THRM 

227 


IF (NS.NE.2) HTFLB=HW 

THRM 

228 

90 

CONTINUE 

THRM 

229 


RETURN 

THRM 

230 

C 


THRM 

231 

C 


THRM 

232 

C 


THRM 

233 

100 

FORMAT ( 1H0,5X,3HAEQ,9X,3HBEQ,8X,4HCAEQ,8X,4HRBAR, 8X,2HRC,10X 

, 3HRRTHRM 

234 


1S,9X,4HRREF, 8X,3HTST, 9X, 2HTC , l OX , 3HT TS , 9X, 4HT REF , // 1 X, 1PE12.4 

, 1CE1THRM 

235 


22.4) 

THRM 

236 

no 

FORMAT <1H0,5X,3HRST,9X,2HRC,10X,3HRRS,9X, 4HRR EF , 8X , 2HPC , 1 OX , 

5HEMBTHRM 

237 


1AR// 1X,6E12.4) 

THRM 

238 

120 

FORMAT ( 1H0,5X,3HTST,9X,2HTC,10X, 3HTTS , 9X , 4HTREF/ / IX , 4E 1 2 . 4 > 

THRM 

239 

130 

FORMAT ( lHOt 7HVSREF =,E16.8) 

THRM 

240 

140 

FORMAT (10H0 VSINF =,616.8) 

THRM 

241 


END 

THRM 

242 



FUNCTION TLU < NT ABLE , Z , X, XSTAR , NFL AG ) 



TLU 

1 

C 




TLU 

2 

C 

FUNCTION TLU IS A CNE-DIMENS IONAL TABLE LOOK-UP PROGRAM. 

TLU 

3 

c 

CORRESPONDING VALUES OF X (ALWAYS INCREASING) AND 

Z 

ARE STORED 

TLU 

4 

c 

IN THE ARRAYS X< 1 ) . . . X ( NTABLE ) AND Z (1 ) . . . Z ( NT ABLE ) . 

USING 

TLU 

5 

c 

LINEAR INTERPOLATION, THIS FUNCTION WILL GENERATE 

A 

VALUE OF l 

TLU 

6 

c 

CORRESPONDING TO A SPECIFIED VALUE OF X = XSTAR. 



TLU 

7 

C 




TLU 

8 

c 

FUNCTION TLU IS CALLED BY SUBROUTINE INTERP. 



TLU 

9 

c 




TLU 

10 


DIMENSION X ( NTABLE ) t Z (NTABLE) 



TLU 

11 

c 




TLU 

12 

c 




TLU 

13 

c 

CHECK TO SEE IF XSTAR LIES WITHIN THE SCOPE 

OF 

THE 

TLU 

14 

c 

TABULATED VALUES X ( 1 ) . . . X ( NT ABL E ) 



TLU 

15 

c 




TLU 

16 


NFLAG=0 



TLU 

17 


171 




IF (XSTAR.LT. X(l) ) GO TG 1C 

TLU 

18 


IF (XSTAR.LE.X(NTABLE) ) GO TO 20 

TLU 

19 

10 

NFLAG=1 

TLU 

20 


T LU = 0 • 0 

TLU 

21 


RETURN 

TLU 

22 

c 


TLU 

23 

c 

SEARCH TO FIND TWO SUCCESSIVE ENTRIES, 

TLU 

24 

c 

X(I-I) AND X(I), BETWEEN WHICH XSTAR LIES ..... 

TLU 

25 

c 


TLU 

26 

20 

1 = 1 

TLU 

27 

30 

IF (X(I).GT. XSTAR) GO TG 40 

TLU 

28 


IF ( I .GE.NTABLE) GO TO 40 

TLU 

29 


1 = 1 + 1 

TLU 

30 


GO TO 30 

TLU 

31 

C 


TLU 

32 

C 

LINEARLY INTERPOLATE TG FIND CORRESPONDING VALUE OF Z .., 

... TLU 

33 

c 


TLU 

34 

40 

TLU=ZU-1)+(XSTAR-X< I-1))*(Z(I)-Z(MI)/(X(I)-XIM)) 

TLU 

35 


RETURN 

TLU 

36 

c 


TLU 

37 


END 

TLU 

38 



SUBROUTINE VISCNA ( TC , CC , C P I , I E , V ST , CST , TT S , TR EF , CPRE F ) 

VI SA 

1 

C 


VISA 

2 

C 

SUBROUTINE VISCNA COMPUTES VISCOSITY (AMU) AND 

VISA 

3 

C 

CONDUCTIVITY (AKAY) FCR A TEMPERATURE ARRAY 

VISA 

4 

C 


VISA 

5 

c 

SUBROUTINE VISCNA IS CALLED BY SUBROUTINE THERM. 

VISA 

6 

c 


VI SA 

7 


COMMGN /COMNS/ NS 

VISA 

3 


COMMON /COMVS/ E M I ( 6 ) , VSA ( 6 ) , V SB ( 6 ) , VSC ( 6 ) ,R , N SP I ( 6 ) 

VISA 

9 


DIMENSION VST ( 51 ) , CST(51), TCI51), CC(51,6>, CPI 151,6) 

VISA 

10 

c 


VISA 

11 

c 


VISA 

12 


DIMENSION C I ( 6 ) , CPI 1(6) 

VISA 

13 

c 


VISA 

14 


DIMENSION AMU 1(6), XI(6> 

VI SA 

15 

c 


VI SA 

16 

c 


VISA 

17 


AMUFAC=2.205E-3/3.280833E-2/32.1750 

VISA 

18 

c 


VISA 

19 

c 

AMUFAC CONVERTS AMUI FROM GM/(CM-SEC> TO LBF-SEC/FT**2 

VI SA 

20 

c 


VISA 

21 


DC 50 NN= 1 , 1 E 

VISA 

22 

c 


VISA 

23 


DO 10 J= 1 , NS 

VISA 

24 


C I ( J )=CC ( NN, J ) 

VISA 

25 


CPU (J) = CPI(NN,J)*CPREF 

VI SA 

26 

10 

CONTINUE 

VISA 

27 


T=(TC(NN)*TTS*TREF)/1.80 

VISA 

28 

c 


VI SA 

29 


ALOGT=ALOG ( T ) 

VISA 

30 

c 


VISA 

31 


DO 20 N=1 1 NS 

VI SA 

32 


XI(N)=CI(N)/EMI(N> 

VI SA 

33 

20 

AMUI (N)=EXP< VSC(N) )*T+*( VS A ( N ) *ALOGT+VSB ( N ) )* AMUFAC 

VISA 

34 


AMU=0.00 

VISA 

35 


AK AY=0. 00 

VISA 

36 


DC 40 N=1 , NS 

VISA 

37 


AKAYI=AMUI (N)/EMI (N)MCPII (N)*EMI ( N) /R+l . 2 50 > *R 

VISA 

38 


F AC=0 .00 

VI SA 

39 


DO 30 J=1 , NS 

VI SA 

40 


PHI=( 1.00 + S0RT(AMUI (N)/AMUI( J) >* ( EMI < J ) / EM I( N) )**0 .250 ) ♦♦2/SORT ( 8 

.VISA 

41 


l)/( 1.00+EMMN1/EMI(J))**0.50 

VI SA 

42 

30 

FAC=FAC+XI ( J ) *PH I 

VISA 

43 


F AC=XI (N ) /FAC 

VISA 

44 


AML= AMU+AMU I (N)*FAC 

VISA 

45 
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40 

AKAY=AKAY+AKAYI*FAC 


VI SA 

46 


V ST ( NN ) = AMU 


VISA 

47 


CST ( NN ) =AK AY 


VISA 

48 

50 

CONTINUE 


VISA 

49 

c 



VISA 

50 

c 

UNITS OF CONDUCTIVITY 

LBF/ ( S EC-DEG R) 

VISA 

51 

c 

UNITS OF VISCOSITY 

LBF-SEC/FT**2 

VISA 

52 

c 



VISA 

53 


RETURN 


VISA 

54 


END 


VISA 

55 



SUBROUTINE VISCON ( C I , CP I f AMU , AK AY , TR 1 

vise 

1 

C 


vise 

2 

C 

SUBROUTINE VISCON COMPUTES VISCOSITY (AMU) AND 

VI SC 

3 

c 

CONDUCTIVITY (AKAY) FOR A SINGLE TEMPERATURE 

vise 

4 

c 


VI SC 

5 

c 

SUBROUTINE VISCON IS CALLED BY SUBROUTINES SHVALSy AND THERM. 

vise 

6 

c 


vise 

7 


COMMON /COMNS/ NS 

vise 

8 


COMMON /COMVS/ E M I ( 6 ) f VS A ( 6) , VSB ( 6 ) , VSC( 6 ) ,R , N SP I ( 6) 

vise 

9 

c 


vise 

10 


DIMENSION C I ( 6 ) y CPI(6l 

vise 

11 

c 


VI sc 

12 


DIMENSION AMU I ( 6 ) y XI(6l 

vise 

13 

c 


vise 

14 

c 


vise 

15 


T=TR/ 1 • 80 

vise 

16 


ALOGT=ALOG IT) 

vise 

17 


AMUFAC= 2.205 E— 3/ 3. 280 833E — 2/ 32 • 1750 

vise 

18 

c 


vise 

19 

c 

AMUFAC CONVERTS AHUI FROM GM/ICM-SEC) TO L BF-S EC/FT**2 

VI sc 

20 

c 


vise 

21 


DO 10 N=1 , NS 

vise 

22 


XI ( N ) =C I (NI/EMIIN) 

vise 

23 

10 

AMU I (N)=EXP(VSC(N) ) *T ** ( VS A { N ) *ALOGT +VSB ( N ) ) *A MUF AC 

vise 

24 


AMU=0 • 00 

vise 

25 


AKAY=0. 00 

vise 

26 


DO 30 N= 1 , NS 

vise 

27 


AKAY I=AMUI(N )/EMI <N>*{ CPI ( N) *EM I ( N )/ R+ 1 . 250 ) *R 

VI sc 

28 


FAC=0 .00 

vise 

29 


DO 20 J = 1 y NS 

VI sc 

30 


PH 1 = ( 1.00+ SQRT (A MU I (N) /AMU I ( J ) )*( EMI C J l/EM If N) ) **0 . 250 ) **2/SGRT ( 8 

.vise 

31 


l)/< 1.00+EMI(N)/EMI( J) )**0.50 

vise 

32 

20 

FAC=FAC+XI ( J )*PH I 

vise 

33 


F AC=X I ( N ) / FAC 

vise 

34 


AMli= AMU+AMU I ( N )*FAC 

VI sc 

35 

30 

AKAY=AKAY+AKAY I*FAC 

VI sc 

36 

C 


vise 

37 

C 

UNITS OF CONDUCTIVITY LBF/ ( S EC-DEG R) 

vise 

38 

c 

UNITS OF VISCOSITY LBF-SEC/FT**2 

vise 

39 

c 


VI sc 

40 


RETURN 

vise 

41 


END 

vise 

42 


773 



SUBROUTINE VPRFLE ( S , VP, V, IE , NTR, ICALL 1 

VPRF 

1 

c 


VPRF 

2 

C 

SUBROUTINE VPRFLE RETRIEVES THE NORMAL VELOCITY PROFILE 

VPRF 

3 

C 

FRCM TAPE OR DISC STORAGE 

VPRF 

4 

C 


VPRF 

5 

c 

SUBROUTINE VPRFLE CALLS SUBROUTINES INTERP, AND SMTHPR. 

VPRF 

6 

c 


VPRF 

7 

c 

SUBROUTINE VPRFLE IS CALLED BY MAIN. 

VPRF 

8 

c 


VPRF 

9 


COMMON /KNTR / KNTR1 , KNTW1 * KNTW2 

VPRF 

10 


DIMENSION V( 51 ) * VH51), ST ( 9 ) , VST(9) f VSPT(9), VT(51,9), 

DUM ( 8 ) VPRF 

11 


NPX=8 

VPRF 

12 


NNU = 4 

VPRF 

13 


IF ( ICALL. NE.l) GO TO 30 

VPRF 

14 


DO 20 N=1 * NP X 

VPRF 

15 


READ (NTR) ST ( N) , VST ( N) * VSPT ( N ) , ( V 1 

VPRF 

16 


DO 10 K= 1 * IE 

VPRF 

17 

10 

VT(K »N J =V1 ( K ) 

VPRF 

18 

20 

CONTINUE 

VPRF 

19 


KNTR1=KNTR1+NPX 

VPRF 

20 

30 

IF (S.LE.ST<NPX/2+l)> GO TO 80 

VPRF 

21 

40 

CONTINUE 

VPRF 

22 


IF (KNTR1.GE.KNTW2) GO TO 80 

VPRF 

23 


READ (NTR) ST(NPX+I) , VST( NPX+1 ) ,VSPT (NPX+i ) *Vl 

VPRF 

24 


KNTR 1=KNTR1+1 

VPRF 

25 


DC 50 N = 1 * I E 

VPRF 

26 

50 

VT(N,NPX+l)=Vl(N) 

VPRF 

27 


DO 70 N= 1 * NPX 

VPRF 

28 


ST ( N ) = ST < N +1 ) 

VPRF 

29 


VST(N)=VST(N+l) 

VPRF 

30 


VSPT ( N ) =VS PT ( N+l ) 

VPRF 

31 


DO 60 K = 1 * I E 

VPRF 

32 

60 

VT (K*N)=VT ( K » N+l ) 

VPRF 

33 

70 

CONTINUE 

VPRF 

34 


IF ( S.GT.ST(NPX/2+l) ) GC TC 40 

VPRF 

35 

80 

CONTINUE 

VPRF 

36 


CALL INTERP ( S * ST * VSPT ,NPX , VP ) 

VPRF 

37 


DO 100 K= 1 * I E 

VPRF 

38 


CO 90 J = 1 , NPX 

VPRF 

39 

90 

DUM ( J ) =VT ( K , J ) 

VPRF 

40 


CALL SMTHPR ( $ , V ( K ) , S T , DUM ,NPX ,NNU ) 

VPRF 

41 

100 

CONTINUE 

VPRF 

42 


RETURN 

VPRF 

43 


END 

VPRF 

44 


c 

c 

c 

c 

c 

c 


c 

c 


SUBROUTINE WISUB { RHCN*T « N ) WISB 

WISB 

SUBROUTINE WISUB COMPUTES REACTION RATES WI/RHO AND THEIR WISB 

DERIVATIVES WITH RESPECT TO THETA WIS8 

WI SB 

SUBROUTINE WISUB IS CALLED BY SUBROUTINE THERM. WIS8 

WI SB 

CCMMCN /COMA BZ/ ALPHSB ( 15* II ) , BETA SB ( 15, l 1 ) * ZSUB ( 5 ,6 ) , ALSUBI 15),BEWISB 
1TSUB(I5J ,GAMMMI( 15,6) ,GAMMPL< 15,6) WISB 

CCMMCN /COMD6L/ AJB( 51 ,6 I , /UM( 51, 6 ),CC (51*6) *CCL ( 51*6) ,CCN ( 5 l * 6 ) *CWI SB 
IPI (51 »6) ,C1( 51*6) ,C2( 51*6) ,C20 (51*6) *DW( 51 * 6 ) , HI( 51 * 6 ) , WO ( 5 1 , 6 ) , W 1WI SB 
2(51,6) WISB 

CCMMCN /COMNS/ NS WISB 

CCMMCN /COMNS2 / N J , NR , NSM I ,N Z WISB 

COMMON /COMREF/ CONREF *C PREF , HREF, PREF , R REF* TR EF , UREF * VS REF , WREF WI SB 
COMMON /COMVS/ EM I ( 6 ) * VSA ( 6) * V S0< 6 ) , VSC< 6 ) ,R , NSP I ( 6) WISB 

CCMMCN /RTECON/ CRO( 15 J *CRI( 15) ,CR2( 15) *DRO( 15) ,DRi( 15) *DR2< 15) WISB 

WISB 

DIMENSION GAMMA(li), EKF(15) t EKBC15), ELF(15) V ELB(15) WISB 

WIS8 
WI SB 
WISB 
WISB 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


TK=T / 1 *80 
RHC=RHON 

RHCBR=. 51 5360* R HO 
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DO 10 1 = 1 * NR 

WI SB 

24 


EKF ( I )=TK**CR2 C I )*EXP( CRO ( 1 1 — CR1 € I l/TK) 

W I SB 

25 

10 

EKB( I )=TK**DR2( I)*EXP( CROC I)-DR1C 1 )/TK) 

WI SB 

26 

c 


WI SB 

27 


DC 20 J= 1 ? NS 

WI SB 

28 


G AMMA ( J ) =CC ( N , J ) /EMI < J 1 

WI SB 

29 


IF (GAMMA! J > .LE . 1 .0E-20 ) GAMMA ( J )=l*0E-20 

WI SB 

30 

20 

CONTINUE 

WI SB 

31 


IF (NZ> 30,60,30 

WI SB 

32 

30 

NN=NS 

WI SB 

33 


DO 50 1=1, NZ 

WI SB 

34 


TERM 1=0«0 

WI SB 

35 


DO 40 J = 1 , NS 

WI SB 

36 

40 

TERM1=TERM 1+ZSUB( I,J)*GAMMA(J) 

WI SB 

37 


NN=NN+1 

WI SB 

38 

50 

GAMMA (NN)=TERMl 

WI SB 

39 

60 

DO 110 1=1, NR 

WI SB 

40 


TERM1=1*0 

WI SB 

41 


T ERM 2=1 »0 

W I SB 

42 


DO 100 J=1 ,N J 

WI SB 

43 


IF ( ALPHSB ( I » J ) ) 70,80,70 

WI SB 

44 

70 

TERM1=TERM1*GAMMA( J)**ALPHSB( I ,J) 

WI SB 

45 

80 

IF ( BET AS B ( I , J ) ) 90,100,90 

WI SB 

46 

90 

TERM2=TERM2*GAMMA( J)**BETASB(I ,JI 

WI SB 

47 

100 

CONTINUE 

WI SB 

48 


EL F ( I )=EKF ( I )*RHOBR**ALSUB(I )*TERM1 

WI SB 

49 

110 

ELB( I ) = EKB ( I )*RHOBR**BETSUB( I ) *TERM2 

WI SB 

50 


DO 130 1 = 1, NS 

WI SB 

51 


T ERM 1=0.0 

WI SB 

52 


TERM2=0.0 

WI SB 

53 


TERM3=0.00 

WI SB 

54 


DO 120 J= 1 ,NR 

W I SB 

55 


TERM1=TERM1+(GAMMPL( J, I ) *ELF ( J J +GAMMM I ( J , I )*ELB( J 1 J 

WI SB 

56 


TERM2=TERM2+(GAMMPL(J, I) *ELB (J ) +G AMMM I ( J,I )*ELF( J)) 

WI SB 

57 


TERM3=TERM3+(GAMMPL(J, I)*ELB(J)+GAMMMI (J, I )*ELF( J ) )/GAMMA( I ) 

WI SB 

58 

120 

CONTINUE 

WI SB 

59 


WO(N, I )=TERM1*EMI ( I J/WREF 

WI SB 

60 


W1(N,I)=TERM3/WREF 

W I SB 

61 

130 

CONTINUE 

WI SB 

62 


DO 150 1 = 1, NS 

W I SB 

63 


T ERM 1 = 0« 0 

WI SB 

64 


DC 140 J=1 , NR 

WI SB 

65 

140 

TERM1=TERM1+(BETASB( J, I)- ALPHSB ( J, I) ) * ( ( CR2 ( J ) +CR 1 ( J ) /TK-ALSUB ( J ) )WI SB 

66 


1*ELF(J)-(DR2(J ) +DR 1 ( J )/TK-BETSUB( J) )*ELB(J) } 

W I SB 

67 


DW(N,I)=TERM1*TREF*EMI(I)/(WREF*TK*1.80) 

WI SB 

68 

150 

CONTINUE 

WI SB 

69 


RETURN 

WI SB 

70 


END 

WI SB 

71 



BLOCK DATA 

BLKD 

1 


COMMON /COMEL/ E LN ( 6 ) , ELO ( 6 > 

BLKD 

2 


COMMON /COMFSA/ C I NF ( 6 ) , C P IFS ( 6 ) , DEL H IF( 6 ) , H I N F ( 6 ) 

BLKO 

3 


COMMON /COMTAB/ CPT AB ( 50 , 6 ) , HT AB ( 50, 6 ) , TMP TAB ( 50 » , NTAB 

BLKD 

4 


COMMON /COMVS/ EM I ( 6 ) , VS A ( 6 ) , VSB ( 6 ) , VSC< 6 ) , R , NSP I ( 6 ) 

BLKD 

5 

C 


BLKD 

6 

C 


BLKD 

7 


DIMENSION TMTABC49) 

BLKD 

8 


DIMENSION HT A BC ( 49 ) , HTAB02(49), HTABNO( 49 ) , HTABN{ 49 ) , 

HTBNGP(49) BLKD 

9 


1, HT ABN2 (49 ) 

BLKD 

10 


DIMENSION CPTBC ( 49 ) , CPTB02(49), CPTBN0(49), CPTBN(49J, 

CPNOPL (49JBLKD 

11 


1, CPTBN2(49) 

BLKD 

12 

c 


BLKD 

13 


EQUIVALENCE ( TMT AB ( 11 , TMPT AB ( 1 ) ) 

BLKD 

14 

c 


BLKD 

15 


EQUIVALENCE ( CPT AB ( l , 1 ) ,CPTBO ( 1 ) ) , ( CPTAB ( l , 2 ) , CPTB02 ( 1 ) ) , ( HT AB ( 1BLKD 

16 


1,1), HTABO ( 11 ), ( HT AB < L , 2 ) , HT ABC2 ( 1 ) ) 

BLKO 

17 

r 


BLKD 

18 
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c 

c 

c 

c 

c 


EQUIVALENCE { HTAB ( 1, 3 ) ,HTABNG< 1 I ) * < HTAB < 1 ,4 ) , HTA3N( 1 I) , (HTAB( 1 ,5BLKD 
I) tHTBNOPI 1)) 9 (HTAB(1,6>,HTABN2(1) ) BLKD 

EQUIVALENCE (CPTAB(1,3) ,CPTBNO (II ) , (CPTAB ( 1 , 4) ,CPTBN (1) ) , (CPTA8(BLKO 
11,5) ,CPNOPL( 1) !« ( CPTAB( 1 *6) ,CPTBN2( 1 ) ) BLKO 

BLKD 

DATA NSPI/4H0 ,4H02 ,4HN0 ,4HN ,4HN0+ ,4HN2 / BLKD 

BLKO 

DATA DELHI F/ . 1661 E+09, 0.00,. 32 25E+08 , . 3619E+09 , . 354036+09,0.00/ BLKD 

CAT A ELO/1 .00, 2.00, 1.00,0.00,1.00,0.00/ BLKD 

DATA ELN/2*0.00,3*1 .00 ,2.00/ BLKD 

DATA EM 1/16. 00, 32* 00 ,30.010, 14 .020, 30. 010, 28. 040/ BLKO 

BLKO 

DATA V S A/ *195588-01,. 3 8271 E-Oi,. 4250 IE-01, .85863E-02, . 42501E-01, .4BLKD 
18349E-01/ BLKD 

DATA VSB/. 438511 C 2 1076E-01, -.01 88740,. 64630, -.0 188740, -.0224850/BLKD 
DATA V SC/— 11.62350,-9.59890,-9 .61970 ,-12*5810, -9.61970 ,-9*98270/ BLKO 

DATA R/4.9686E4/ BLKD 

BLKD 

DATA NTAB/49/ BLKD 

BLKD 


DATA TMTAB /I 80. 00000,900. 00000 ,1260. 00000, 2700. 00000, 4140.00000, 54BLK0 
ICO. GOOOO, 6 660. 00000, 8 ICO. 000 00, 9540. 00000, 10800.00000, 12060. 00000, BLKD 

213500.00000. 14760.00000.16200.00000.17460.00000. 18900. 00000.20250. BLKD 
3OOCC0,2160C.00000, 22950. 00000, 24300.00000, 2565 0.00000, 27000. 00000, 8LK0 

428800.00000. 30600. 00 000.32400. COOOO, 342C0. 00000, 36C00 .00000, 37800 .BLKO 

500000.39600. 00000. 41400. 00000. 432 00. 00000. 46800. 00000. 50400. 00000, BLKD 

654000.00000. 57600 . 00000 . 6 1 20 C . 00000, 64800 . 00000, 68400 . 00000, 72000 . BLKD 
70CG00, 75600.00000, 7920 C.OOOGC, 82800. 00000, 86400. OOCOO , 90000. 00000 , BLKO 

893600.00000. 97200.00000.100800.00000.104400.00000.108000.00000/ BLKO 

DATA HTABO/8253. 7150 C, 82 79. 549 20,8 L72. 0972 0,7984. 16950, 79 16. 94750, BLKD 

17891.34800,7887. 3 7 35C , 7904 .83620,7939 .37050, 7978.02000 ,8020. 31550 , BLKO 
28069.38630,8110.80550, 8155.02560, 8190. 56130, 8227. 80260, 8260. 20880, BLKO 
38291.50390, 8323.33120, 8357.78720,8397.23470, 8444. 2088G , 8523. 21350, BLKD 
48626. 56 590, 8759. 82080, 8927 .42220, 9132. 17 100, 9375. 02160, 9654. 78500, BLKD 
59 968. 2 84 50, 10310.45 05 0,110 53 .8 2080*11824. 5 58 70, 125 63 .48510,1 32 25.1BLKD 
6280C, 13782.02390, 14227.41900, 14562.59050, 1 4799. 52640 , 14952. 70070, 18LKD 
75037.08810,15066.45870,15052.84530,15006.23110, 14934. 78420, 14844. 9BLKD 
89830, 14741.95890,14629.70300,14511.31330/ BLKD 

DATA CPTBO/8865. 3 1690, 7950. 19860, 7868. 98760, 7796. 03850, 7 792. 09530, BLKD 
17830.47890,7917.76120,8057.90100,8208.72820, 8329. 93440 , 8432. 34790, BLKO 
28523.63600,8582.59620, 8631.07240,8662.86830, 8695.99430, 8 734. 28390, BLKD 
38791 .44460, 8 880. 5 1070, 90 15. 34600,920 9. 87690, 9477. 18480, 9966. 06260, BLKD 
410623.32420, 11456. 38650, 12458.64620, 13608. 52530, 14870.15960, 16 196. BLKD 
504290, 17530.78270,18816.85850,21031.77550, 22518. 45350, 23158. 59660, BLKD 
62 3G2 5. 592 10, 22307.05450,2 122 0.01610, 19 954. 5951 0,18650. 21 160, 17396. BLKD 
705690, 16240.63850,15205.48750, 14294.03080,13500.33790, 12813. 64320, BLKO 
81 222 I. 50690, 11711.53610,11272. 12040, 10892.94790/ BLKD 

DATA HTAB02/ 5442. 28040, 552 5. 2 7520 ,5660. 18 100, 6144. 76350, 6446. 82470BLKD 
1, 665 1. 080 50, 68 23. 2 8230, 6987. 30 820, 71 58. 774 60, 7284. 89420, 74 13. 30620BLKD 
2,7533.80050,7630.36960,7730. 7C 200, 7809 .62840 , 7889 . 67370 ,7954. 9 2420BLKD 
3, 801 1. 09910, 8058. 35480 ,8097. 23910, 81 28. 143 10, 8 15 1.53620, 81 71. 878 10BLK0 
4, 8 180. 95370,8 179. 85840, 8 169. 92210, 81 52. 08390, 8 127. 59540, 8097. 39550BLKD 
5,8062.42320,8023.46070,7936.69470, 7841 .87030, 7742 . 78970, 7642 .081 80BLK0 
6, 754 1.63990, 7442. 77060, 7346. 31 100, 72 52. 82440, 7 162. 62390, 7075. 85800BLKD 
7, 6992. 581 50, 6912. 76310, 6836. 3 1680, 6763. 13300, 6693. 07870,6626. 01310BLK0 
8,6561.78750,6500.25340/ BLKD 

DATA CPTBG2/5442. 78110, 5814. C5 940, 6167.59330, 6834.31390, 7184. 233208LK0 
1,7451.99480, 7675.14520,7911. 73680 , 81 26 . 57830 , 8314. 42770 , 8469 . 651 80BLKD 
2, 86 12. 51 440, 87 13. 6761 0,879 8. 8 7720, 88 45. 8 2000, 8 869.36960, 8864. 75360BLKD 
3,8837.29210, 8789 . 4 1C40 , 8 723. 6SC50 , 86 42 . 32 300 , 8547. 49 860 , 8404.08840BL KD 
4,8245.73470,8077.21010,7902.66120,7725.91380, 7 549. 9331 0,7377. 16020BLKD 
5,7209.39450,7047.93480,6746. 58460 , 6477. 36880 , 6238 .66470 , 6028 . 67400BLKD 
6, 5844.39230, 5682.66650,5540.46900, 5415.05360, 5304.01040, 5205. 274 10BLKD 
7,5 117. 05290, 50 37.8 6050,49 66. 40570, 4901. 62470, 4842. 60200, 478 8. 57080BLKD 
8,4738.87410,4692.95620/ BLKD 

DATA HTABNO/ 5803. 44300, 5846. 32680, 5946. 019 20 ,6414. 053 80, 6711. 537408LKD 
1,6878. 11 700, 6996. 76500, 7097. 75060, 7176. 042 80, 7 258. 54830, 7333. 63680BLKD 
2, 741 7. C6 83 0,7 500. 75020, 7578. 53350, 7647. 90690, 7727. 86770, 7802. 86440BLKD 
3,7877.21860, 7950. 29630 , 802 1. 52 190 , 8090. 3 5290 , 8156. 30560 , 82 39 .01 1 30BLKD 
4, 831 4. 88400, 8383. 20620, 8443. 27690, 8494. 921 10, 8 53 7. 80490, 8572. 09530BLKD 
5,8598.04250, 8615.98030,8629. 82990, 8618.14950,8585. 86150, 8537. 47120BLKD 


19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 
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II 


6, 8477. 150 10, 8408.06880,8333. 14720, 8254.43780, 81 73 .61770*809 1.97150BLKD 90 

7,8010.42550,7929. 70540 *7850. 29520 *77 72. 57030. 7696. 76440, 76 23 .03590BLKD 91 

8*7551.47660,7482.12830/ BLKD 92 

DATA CP TBNO/ 5803. 88 520, 6030. 56050 , 6361 .441 80 * 7 129. 763 30, 7370 . 99740BL KD 93 
1*7471 .03 190, 7 535. 83320, 759 1.78240 * 76 59. 02000, 7767. 48100, 7910. 98340BLKD 94 

2, 812 8. 3 143 0*8292. 54940, 846 5. 2 1940, 86 14.31 170, 8779. 17250, 8924. 593 70BLKD 95 
3, 90 5 8. 33460, 9 178. 476 10, 9283. 59990, 9372. 371 10, 9443. 62 170, 9509. 94980BLKD 96 

4, 9542. 15440, 9540. 23540, 9505. 44450, 9440. 36780, 9348. 42620, 9233. 79120BLKD 97 

5,9100.88470, 8953 . 8782 0 , 8633.4 1750 , 8299. 1 5720, 7970 . 01950 , 7657 . 72680BL KD 98 
6,7368.56960, 7105 .06760 ,6867. 36260 , 66 54. 24500 , 6463 . 78730, 6293 . 787 1 OBLKD 99 
7,6142.01670*6006.34860,5884.82220, 57 75. 69360, 5677. 41960, 5588. 631 70BLKD 100 
8,5508.15360,5434.96740/ BLKD 101 

DATA HTABN/8 879. 45 150 ,8879 .451 50, 8879. 45 150, 8879. 451 50 ,8 880. 09490, BLKD 102 
18887.61930,3917. 7885C, 9000 .4 1430,9143. 09240, 9311 . 8291 0, 9509. 91280 , BLKD 103 
29755.32360,9973. 12090,10212.86600, 10407. 67900 , 10608 .94410 , 10776. 30BLKD 104 
3450, 10924.97010,11058.69400, 11182.49860,11302. 12090, 1 142 3. 56630, 1 1BLKD 105 
4558.39750, 11799.32300, 12036. 15490, 12315.22000, 12638.87770, 13005. 4 IBLKD 106 
5210,13409.38990,13842.37520,14293.87670,15206.67390* 16062. C9960,16BLKD 107 
6797.81350*17382.64570, 17812.21730,18099.37890, 18265. 59550, 18333. 86BLKD 108 
7940, 18326.18410* 1826 1 . 12730 * 18 153 . 89080, 1 8016. 80670 , 17858. 75800, 17BLKD 109 
8687.16170,17507.236700,17322.98650,17137.34220,16952.44860/ BLKD 110 

DATA CPTBN/8879.45150, 8879.45150,8879.451 50, 88 79. 40720 , 8887. 15460 , BLKD 111 
18955. 12470,9168. 72200,9633.82460, 10278.61990, 10902.39680,1 1504. 0478LKD 112 
230,12095.92130,12498.14760,12818.67760,12990.81010, 13094.597 10, 131BLKD 113 
339.01090, 13171.96830, 13232.16370, 1 33 55 . 50360 , 1 3573. 24 730, 139 10. 3278L KD 114 
440,14574. 19290, 15 A96. 963 10, 16666. 05560, 18040. 2 2C00, 19552. 96980 ,21 IBLKD 115 
5 20. 58890, 2 26 51. 56890, 24056 .90340, 2 52 60.990 70, 26867. 2 1500, 27309. 20 8BLK0 116 
610,26742.28440,25481.00430,23851.90290,22109.66700,20420.15580, 18 8BLKD 117 
772.19670,17502.71490, 163 16 . 02200 , 15302. 9 1 8 70 , 1 4442. 1 1 3 30 , 1 371 3 . 637BL KD 118 
880,13097.49250,12575.71540,12132.82860,11755.71350, 11433.41420/ BLKD 119 
DATA HTBN0P/5803. 34290, 58 17. 960 10, 587 1.1 1440, 6255. 800 70, 6558. 140 10BLKD 120 
1,6737.54310,6867.65460,6979.16930,7067.15630, 7 134. 685 80, 7200. 93C50BLK0 121 
2,7283.25240, 7367. 06780 , 74 8 1. 71950 , 7601 .33540, 7746 . 623 10 , 7930 . 17260BL KD 122 
3, 8184.63060, 8401. 06050, 8629. 66310, 8863. 68870 ,9097. 213 70, 9398.90230BLKD 123 
4,9680.56740, 9935. 03370, 10158.21320,10348. 18700, 10505. 2 8 860 , 10631 . 1BLK0 124 
50350, 10728.05100, 10798.96780,10874.64030, 10880.81420, 10836.76240, IBLKD 125 
60757.41890, 10654.21400,10535.57430,10407.50680, 10274.26660, 10 139. IBLKD 126 
70740, 10004.03170, 9870. 70800,9740.05410,9612.82090, 9489. 342 20 ,9370. BLKD 127 
803500,9254.81600,9143.85200,9037.05950/ BLKD 128 

DATA CPNDPL/ 5803.67660, 5896. 15220,6127. 51630,6944. 80380, 7257. 42200BLKD 129 
1,738 4. 2297 0,7461. 18700, 7527. 28 150, 7600.90 150, 7698. 27450, 7850. 01150BLKD 130 
2, 8112. 67920, 8A31. 04680, 8 89 9. 73110, 93 90. 14200,10078. 452 60, 10776. 858BLK0 131 
350,11526.99190, 12212. 54930, 12815. C0880, 13323.27400,13726.83260, 140BLKD 132 
488.84230,14253.87000,14242.27300, 14084.92100,13816. 18790 , 1 3468 . 945BL KD 133 
560, 1307 1.5 6090, 12646. 894 10, 122 12. 38240, 11360. 62930,105 75.371 20 ,987BLKD 134 
68.38 370, 92 71. 66920, 8 748. 63650, 8299.3 8240, 7913. 58640, 7581. 70390, 729BLKD 135 
75.33330, 7047. 30790,6831. 59550,6643.16530,6477. 84560,6332. 1 6570, 620BLKD 136 
83.23880,6088.66220,5986.41680,5894.83400/ BLKD 137 

DATA HT ABN2/62 15. 973 50, 6232. 14830, 6290. 190 10, 6704. 01 580, 7026. 35980BLKD 138 
1,7216.76720, 7354 .34270 , 7471. 39130 , 7561 . 19300 , 762 5 . 34720 , 768 1 .07450BLKD 139 
2,7739.74180, 7791 . 07230 , 7854. 8C660 , 79 18.96980 , 8041 . 84490 , 81 76 . 78420BLK0 140 
3,8335.02960,8487 .00160,8655.81 860 ,8839.03220, 9033.24650 , 9302 • 58890BLKD 141 
4,9574.79090*9840.46940,10091.58150, 10321.87190,10527. 14050, 10704. 9BLKD 142 
57440, 10854.83740,10977.17640,11145.80580,11227.75240, 11241.87190, IBLKD 143 
61205.67950,11133.29490,11035.88840,10921.77090,10797.28720, 10666. 8BLKD 144 
71610, 10533.66410, 10400.15460, 10267.80690, 10137.78260, 100 10. 886 10, 9BLKD 145 
8887.47470,9767.995300,9652.44800,9541.01140/ BLKD 146 

DATA CPTBN2/6216.33090,6318. 17880,6568.89780,7440.77530, 7769. 8 1270BLKD 147 

1,7901.82980,7980.46100, 8041.63940, 8090.10140,8132.94230, 8187. 60620BLKD 148 
2,8281.83130,0408.37930,8660.24220,9024.84630,9507.85740, 10049 . 9380BL KD 149 
30,10622.58100, 11220.24580,11833.72810, 12436. 12920, 13002.24860, 1366BLKD 150 
40. 85950, 14 172. 10960, 14513. 47920, 1468 1.57240, 14688. 00660, 14554^9440BLKD 151 
50,14309.81920,13980.78180,13594.01540,12733.17430, 11857.14140, 1103BLKD 152 
66.87140, 10 302. 92680, 9662. 45670, 91 10. 90360, 8638. 66970, 8235. 00470, 78BLKD 153 
789. 5 1550 ,7592. 94390, 7 337. 35460, 71 16. 09000, 6923. 60040, 6755. 31 060, 66BLKD 154 
807.44930,6476.90670,6361.09130,6257.87610/ BLKD 155 

END BLKD 156 
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